;PROCEDURE TO LOOK AT FIRST JUPITER UVS SPECTRUM FROM GALILEO ;OBTAINED FOR SHOEMAKER-LEVY 9 OBSERVATIONS OPENR,1,'DISKK:[GLL_RAW.LRSP]UVS94195_JUP.DAT' A=ASSOC(1,FLTARR(528)) DATA=A(0) ;UNITS ARE CTS/6 MSEC D2=SMOOTH(SMOOTH(DATA,5),5) ;SMOOTH OVER INST RESOLUTION OPENR,2,'TORUS1:[GLL_RAW.CALIBRATION]FLIGHT_F_CAL_1.DAT' B=ASSOC(2,FLTARR(528)) FWL=B(0) CAL=B(1) D3=(D2-0.5)/CAL ;0.5 IS CRUDE ESTIMATE OF SCATTERED LIGHT openr,5,'[wpryor.susim]susimh.dat' ;flux per nm sus=ASSOC(5,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) END