;
;HISTORY:
;	Written Mar-93 (?) by M.Morrison
;V2.0	30-Nov-94 (MDM) - Updated to work ok
;			- Added plotting SDL data
;
progver = 'CHECK_SDC  Ver 2.0'
;
if (n_elements(sdc) eq 0) then begin
    infil = file_list('$DIR_SXT_SDC', 'sdc*')
    rd_roadmap, infil, sdc
    tim2orbit, sdc, wid=wid1
    infil = file_list('$DIR_SXT_SDW', 'sdw*')
    rd_roadmap, infil, sdw
    tim2orbit, sdw, wid=wid2
end
if (n_elements(sdl) eq 0) then begin
    infil = file_list('$DIR_SXT_SDL', 'sdl*')
    rd_roadmap, infil, sdl
end
;
!p.multi = [0,1,3]
!p.charsize = 1.8
usersym,[0,0],[-1.0,1.0]
ref_tim = '1-Sep-91'
xrange = [0, int2secarr(!stime, ref_tim)]
;
!y.title = 'DPE Level
for ires=0,2 do begin
    ss = where(gt_res(sdc) eq ires)
    utplot, sdc(ss), gt_dpe(sdc(ss)), ref_tim, xrange=xrange, psym=8, tit = 'SDC ' + gt_res(ires, /str) + ' Resolution Images'
end
plottime, 0, 0, progver & plottime & pause
;
!y.title = 'DPE Level
for ires=0,2 do begin
    ss = where((gt_res(sdl) eq ires) and (gt_percentd(sdl) eq 100))
    utplot, sdl(ss), gt_dpe(sdl(ss)), ref_tim, xrange=xrange, psym=8, tit = 'SDL ' + gt_res(ires, /str) + ' Resolution Images'
    ss = where((gt_res(sdl) eq ires) and (gt_percentd(sdl) ne 100))
    outplot, sdl(ss), gt_dpe(sdl(ss)), psym=3
end
plottime, 0, 0, progver & plottime & pause
;
for ires=0,2 do begin
    ss = where(gt_res(sdw) eq ires)
    utplot, sdw(ss), gt_dpe(sdw(ss)), ref_tim, xrange=xrange, psym=8, tit = 'SDW ' + gt_res(ires, /str) + ' Resolution Images'
end
plottime, 0, 0, progver & plottime & pause
;
uwid = wid1( uniq(wid1) )
n = n_elements(uwid)
times = replicate(sdc(0), n)
n_arr = intarr(n)
for i=0,n-1 do begin
    ss = where(wid1 eq uwid(i), count)
    times(i) = sdc(ss(count/2))
    n_arr(i) = count
end
;
!p.multi = 0
!y.title = 'Number of SDC images in a week'
!p.charsize = 0
utplot, times, n_arr, ref_tim, xrange=xrange, psym=10, tit = 'Average # SDC images per week = ' + string(total(n_arr)/n)
plottime, 0, 0, progver & plottime & pause
;
end