PRO rfmrd, filename, wnoarr, datarr
;
; 01-DEC-10  AD  Simplified version just for ASCII input
; 25-AUG-03  AD  Change NWIDEMESH from INTARR to LONARR
; 20-DEC-00  VJ  Add capability to read binary files
; 28-NOV-00  AD  Original
;
; IDL procedure for reading RFM ascii spectra
; See program rfmrd2.pro for version which will also read binary
;
;   filename (in)  string   name of RFM  spec. file (eg 'rad_01000.asc')
;   wnoarr   (out) dbl arr  wavenumber array
;   datarr   (out) dbl arr  data array
;

wno1  = 0.D0
wnod  = 0.D0   
nwno  = long(0)
commnt = ''

OPENR, lun, filename, /GET_LUN
READF, lun, commnt     ; skip header records (assume always 3)
READF, lun, commnt
READF, lun, commnt

READF, lun, nwno, wno1, wnod
WNOARR = wno1 + FINDGEN(nwno) * wnod
DATARR = DBLARR(nwno)
READF, lun, datarr
FREE_LUN, lun

END