; ; define file handling variables ; define data structure definition parameters ; ; Data definition ; defsysv, '!nchan', 0L ; number of data channels in a single spectrum from SDFITS defsysv, '!data_points', 0L ; same as above defsysv, '!kount', 0L ; number of data records in database from SDFITS defsysv, '!kon', 0L ; number of data records in ONLINE data file defsysv, '!koff', 0L ; number of data records in OFFLINE data file ; ; I/O variables ; ;defsysv, '!datafile', '../data/dec03.avg.acs.fits'; <== IDL data file name defsysv, '!datafile', '../data/feb04.avg.acs.fits'; <== IDL data file name defsysv, '!online_data', '../data/online.gbt' ; <== ONLINE data file name defsysv, '!offline_data', '../data/offline.gbt' ; <== OFFLINE data file name defsysv, '!nsavefile', '../data/nsave.dat' ; nsave file name defsysv, '!nslogfile', '../data/nsave.log' ; nsave log file defsysv, '!plot_file', '../figs/idl.ps' ; default plot file defsysv, '!jrnl_file', '../saves/journal.dat' ; JOURNAL file defsysv, '!save_idl_state', '../saves/state.dat'; file with vars + !vars defsysv, '!save_idl_procs', '../saves/procs.dat'; file with *.pro ; defsysv, '!dataunit', 0 & defsysv, '!nsunit', 0 & ; logical unit numbers defsysv, '!nslogunit', 0 ; " " " defsysv, '!offunit', 0 & defsysv, '!onunit', 0 & ; " " " defsysv, '!nsave', 0 ; current position of nsave record pointer defsysv, '!nsave_max', 1024 ; maximum # records in nsave file defsysv, '!nsave_log', intarr(!nsave_max) ; keep track if this slot has been written to ; ; Get LUNs for files ; get_lun,lun ; assign lun nsave file !nsunit=lun ; we keep this lun throughout get_lun,lun !nslogunit=lun ; nslog file lun get_lun,lun !onunit=lun ; ONLINE data file unit get_lun,lun !offunit=lun ; OFFLINE data file unit ;