;
;
;

dpath='/usr2/mpenn/02sep20/'

sky13=fltarr(256,256,10)
dark=swap_endian(rfits(dpath+'sky1_3_2000.d.i.001'))

for i=0,7 do begin
 fname=dpath+'sky1_3_2000b.o.i.'+string((i+1),format='(i3.3)')
 temp=swap_endian(rfits(fname))
 s=fitsstr('UTSTART',file=fname)
 time(i)=hms2h(s)
 sky13(*,*,i)=temp
endfor

sky13(*,*,8)=swap_endian(rfits(dpath+'sky1_3_2000.o.i.001'))
s=fitsstr('UTSTART',file=dpath+'sky1_3_2000.o.i.001')
time(8)=hms2h(s)

sky13(*,*,9)=swap_endian(rfits(dpath+'sky1_3_2000c.o.i.001'))
s=fitsstr('UTSTART',file=dpath+'sky1_3_2000c.o.i.001')
time(9)=hms2h(s)

skyval=fltarr(10)
for i=0,9 do skyval(i)=(mean(sky13(*,*,i)-dark))/2000./5.98*1.e6

plot,time,skyval,psym=2,/ynoz,xtit='Time of Day [UT]',$
     ytit='Intensity [millionths]',chars=1.6

sky11=swap_endian(rfits(dpath+'sky1_1_2000.o.i.001'))-dark
print,(mean(sky11)/2000./5.98*1.e6)

the_end:
end