pro darks

; This program prints out a list of the Dark Dataset measurements
; in the current directory.  It is to be run from the test log.

cd,'', current=cdir & cd,cdir
DB="DB2"
cd,cdir+'\'+DB+'\Dark'

;files=findfile('*',count=nfiles)
files=t_getfil('*.*') & siz=size(files) & nfiles=siz(1)	;for lots of files

;;spawn,'lsf',files,/noshell
;;s=size(files)
;;nfiles=s(1)
print,string(10b),'There are: ',sstr(nfiles),' files.'

for j=0,nfiles/20 do begin
print,''
print,'File   Time     Temp   Exp.   #        Dark1           Dark2        Lamp'
print,' #     (min)    (K)    (ms)  Col    Mean    Max.    Mean    Max.    '
print,''

for i=20*j,20*j+19 do begin
 if i eq nfiles then goto,exit
 d_read,files(i),h,p
 time=d_value(h,88)
 temp=d_value(h,22)
 exp=d_value(h,36)
 ncol=d_value(h,121)
 lamp=d_value(h,102)

 type=mtype(files(i))

 ;check to see if data is saturated...
 sat=''
 max2=max(p)	;the maximum
 mean2=mean(p)	;the average
 if max2 ge 4095 then sat=' *'

 print,i,time/60,temp,exp,ncol,mean(p(0,*)),max(p(0,*)),mean(p(1,*)),max(p(1,*)),sat,lamp,$
  format='(i4,f8.2,f8.1,i6,i6,2(f9.2,i7),a2,1x,a5)'
endfor	;for i

ans=''
read,'Continue? (y or n): ',ans
if ans eq 'n' then goto,exit
endfor	;for j

exit:
print,''
print,' * = Saturated Data'

cd,cdir
;stop
end