; Wayne's procedure to set up a F-chan sun spectra
; modified by JJG Aug 10 1994

pro susim,fluxsf,fwl
close,5,7
OPENR,5,'TORUS1:[GLL_RAW.CALIBRATION]FLIGHT_F_CAL_1.DAT'
B=ASSOC(5,FLTARR(528))
FWL=B(0)
CAL=B(1)
;data file moved ;openr,5,'[wpryor.susim]susimh.dat' ;flux per nm

openr,7,'torus1:[gll_raw.calibration]susimh.dat' ;flux per nm
sus=ASSOC(7,FLTARR(!ERR/4.))
WLs=sus(0)*10.   ;CONVERT NM TO ANGSTROMS
FLUXS2=SMOOTH(SMOOTH(sus(1),30),30)/10.  ;flux per A.
FLUXS3=SMOOTH(SMOOTH(SUS(1),15),15)/10.  ;
;fluxsg=interpol(fluxs3,wls,gwl)
fluxsf=interpol(fluxs2,wls,fwl)                    
close,5,7
return
END