;
;
;
dpath='/usr2/mpenn/02sep19/'

flux=fltarr(256,256,3)
dark=fltarr(256,256,3)

slits=[100,200,400]
inttime=fltarr(3)

for i=0,2 do begin
 temp=swap_endian(rfits(dpath+'disk'$
                        +string(slits(i),format='(i3.3)')+'.d.i.001'))
 dark(*,*,i)=temp
 fname=(dpath+'disk'+string(slits(i),format='(i3.3)')+'.o.i.001')
 temp=swap_endian(rfits(fname))
 flux(*,*,i)=temp
 s=fitsstr('INTTIME',file=fname)
 inttime(i)=fix(s)
endfor


flux=flux-dark

fmean=fltarr(3)

for i=0,2 do begin
 fmean(i)=mean(flux(*,*,i))/slits(i)/inttime(i)*400.
endfor


plot,slits,fmean,psym=2,xran=[70,430],xstyl=1,$
     xtit='Slit [micron]',ytit='Flux {ADU/400microns/msec]',chars=1.6
oplot,slits,fmean


the_end:
end