pro visibles

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

cd,'', current=cdir & cd,cdir
cd,cdir+'/DB/Visible'

;files=findfile('*',count=nfiles)
spawn,'lsf',files,/noshell
s=size(files)
nfiles=s(1)

print,''
print,'Visible #   Time (min)   Temperature  Type      Average      Exposure   Colmns'
print,''

for i=0,nfiles-1 do begin
 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)

 type=mtype(files(i))
 typ='Unknown'

 if type eq 16 then begin
  typ='DLVS' 
  columns=20	;number of uncompressed columns
 endif

 if type eq 17 then begin
  typ='ULVS'
  columns=8	;number of uncompressed columns
 endif
 
 ;check to see if data is saturated...
 sat=''		
 if max(p)/(columns/ncol) ge 4095 then sat=' *'

 print,i,time/60,temp,'    ',typ,mean(p),exp,'    ',ncol,sat
endfor

print,''
print,' * = Saturated Data'

cd,cdir
;stop
end