;run xray_on_ccd and plot_sld first
;
if (n_elements(index_d2) eq 0) then rd_sld, '1-oct-92', !stime, index_d2

            y2 = ssl.dur_expos(0)/1000./60.       		;al.1 only
            ;y2 = total(ssl.dur_expos(0:4)/1000./60., 1)		;all 5

!p.charsize = 1.2
!p.multi = [0,1,2]
ref_time = index_d(0)
utplot, index_d, sld.avg_arr(5), ref_time, psym=-2, /ynozero, ytit='SLD Average for V.Strip 5', /year
utplot, x, y2*goes_avg*10e+5, ref_time, xrange=!x.crange, tit = 'Normalized for solar flux (minutes * GOES * 10E+5)', /year
pause

!p.multi=0
tit = 'Bottom plot is GOES Level * Minutes of exposure; top plot is CCD temp'
utplot, index_d, sld.avg_arr(6), ref_time, psym=-2, /ynozero, ytit='SLD Average for V.Strip 6 and 46', /year, tit=tit
outplot, index_d, sld.avg_arr(46)-4, ref_time, psym=-1
outplot, x, smooth(y2*goes_avg*10e+5/20+30, 5)
outplot, index_d2, (gt_temp_ccd(index_d2)+20)/10+45
pause

;xref = build_timarr('15-jan-93', '1-aug-93', 1, /day)
xref = build_timarr('15-jan-93', '1-aug-93', 1, /day)
x_out = int2secarr(xref, ref_time)
x1_in = int2secarr(x, ref_time)
y1_in = smooth(y2*goes_avg*10e+5,5)
x2_in = int2secarr(index_d, ref_time)
y2_in = sld.avg_arr(6)
y1_out = interpol(y1_in, x1_in, x_out)
y2_out = interpol(y2_in, x2_in, x_out)

!p.multi = [0,1,2]
utplot, x_out, y1_out, ref_time
utplot, x_out, y2_out, ref_time, /ynozer
pause

!p.multi = 0
plot, y1_out, y2_out, psym=2, /ynozer
pause

;plot, smooth(y2*goes_avg*10e+5, 5), sld.avg_arr(6), psym=2, /ynozero

;utplot, index_d, total(sld.avg_arr,1)/51., ref_time, psym=-2, /ynozero, ytit='SLD Average for All V.Strips', /year
;outplot, x, smooth(y2*goes_avg*10e+5/20+30, 5)

end