;
; nim array cooling tests
;

dark=fltarr(64)
;frames=bytarr(256,256,64)

;refdark=swap_endian(rfits('c:\data\02sep24\test.d.i.064'))

for i=1,64 do begin
;temp=(swap_endian(rfits('c:\data\02sep24\test.d.i.'+string(i,format='(i3.3)'))))
temp=(swap_endian(rfits('/usr2/mpenn/02sep24/warmdarks/test.d.i.'+string(i,format='(i3.3)'))))
dark(i-1)=mean(temp)
;frames(*,*,i-1)=hist_scl(temp-refdark)
endfor

xhours=findgen(64)*143./3600.
plot,xhours,dark,yran=[450,1100],ystyl=1,tic=1,$
     xgridstyl=1,ygridstyl=1,xtit='Time [hours]',chars=1.6,$
     ytit='Intensity',xran=[0,2.6],xstyl=1,thick=4




the_end:
end