pro violet3,logname,ulv,dlv,ulvlamp,dlvlamp

; Plot and do statistics on the violet measurements in a log.

cd,logname+'/DB/Violet'
spawn,'ls',files

s=size(files)
numfiles=0
if s(0) ne 0 then numfiles=s(1)

ulvtmp=intarr(numfiles)
dlvtmp=intarr(numfiles)
ulvlamptmp=strarr(numfiles)
dlvlamptmp=strarr(numfiles)

numulv=0
numdlv=0

for i=0,numfiles-1 do begin
  d_read,files(i),h,p
  lamp=d_value(h,102)
  type=d_value(h,96)
  if type eq 6 then begin
    numdlv=numdlv+1
    dlvtmp(numdlv-1)=p
    dlvlamptmp(numdlv-1)=lamp
  endif
  if type eq 7 then begin
    numulv=numulv+1
    ulvtmp(numulv-1)=p
    ulvlamptmp(numulv-1)=lamp
  endif
endfor

ulv=intarr(numulv)
dlv=intarr(numdlv)
ulvlamp=strarr(numulv)
dlvlamp=strarr(numdlv)

ulv=ulvtmp(0:numulv-1)
dlv=dlvtmp(0:numdlv-1)
ulvlamp=ulvlamptmp(0:numulv-1)
dlvlamp=dlvlamptmp(0:numdlv-1)

end