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

dark1=fltarr(256,256,11)

expos=[1,64,128,256,512,1000,1300,1600,2000,2300,2600]

for i=0,10 do begin
 temp=swap_endian(rfits(dpath+'dark'$
                        +string(expos(i),format='(i4.4)')+'.d.i.001'))
 dark1(*,*,i)=temp
endfor

darkmean1=fltarr(11)

for i=0,10 do begin
 darkmean1(i)=mean(dark1(*,*,i))
endfor


cdark=poly_fit(expos,darkmean1,1,ydark)
plot,expos,darkmean1,psym=2,$
     xtit='Exposure [msec]',ytit='Dark counts [ADU]',chars=1.6
oplot,expos,ydark
print,cdark


the_end:
end