pro cable,totavg,vsavg,measid,expt
@c_system.inc
@c_header.inc

spawn,'lsf',files,/noshell
s=size(files)
num=s(1)
expt=fltarr(num)
;si=fltarr(num)
;ingaas=fltarr(num)
;fltsi=fltarr(num)
meastype=intarr(num)
measid=strarr(num)
vsavg=fltarr(200,num)
totavg=fltarr(num)

for i=0,num-1 do begin
  d_read,files(i),h0,p0
  duma=d_value(h0,36)
  expt(i)=duma
;  si(i)=d_value(h0,263)
;  ingaas(i)=d_value(h0,265)
;  fltsi(i)=d_value(h0,264)
  meastype(i)=d_value(h0,96)
  endfor

for i=0,num-1 do begin
  if meastype(i) eq 6 then measid(i)='DLV' 
  if meastype(i) eq 7 then measid(i)='ULV' 
  if meastype(i) eq 8 then measid(i)='DLIS' 
  if meastype(i) eq 9 then measid(i)='ULIS' 
  if meastype(i) eq 12 then measid(i)='SLI strip' 
  if meastype(i) eq 14 then measid(i)='SA' 
  if meastype(i) eq 16 then measid(i)='DLVS' 
  if meastype(i) eq 17 then measid(i)='ULVS' 
  if meastype(i) eq 18 then measid(i)='Dark' 
  if meastype(i) eq 19 then measid(i)='CCD' 
  if meastype(i) eq 21 then measid(i)='DLI2' 
  if meastype(i) eq 22 then measid(i)='SLI' 
  if meastype(i) eq 23 then measid(i)='DLI1' 
  endfor

for i=0,num-1 do begin
  d_read,files(i),h0,p0
  sd0=stdev(p0(*,*),dumavg)
  totavg(i)=dumavg
  for j=0,199 do begin
    sd=stdev(p0(*,j),dumavg)
    vsavg(j,i)=dumavg
    endfor
  endfor

return
end