pro lapalma_write_genxcat

dirs=[ $
'/hosts/blackadder/disk2/3005/final/svt30may98.######.hp350', $  ; 16:1560
'/hosts/blackadder/disk3/3005/final/svt30may98.######.kline', $  ; 16:1560
'/hosts/blackadder/disk3/3005/final/svt30may98.######.hm350',$
'/hosts/blackadder/disk2/3005/final/svt30may98.######.halph', $
'/hosts/blackadder/disk2/3005/final/svt30may98.######.hm700', $
'/hosts/horus/data0/lp98/30may98/gband/images/gband_im30May98.######.strt', $
'/hosts/horus/usr2/data0/lp98/30may98/tf/halpha/final/svt30may98.######.hadop',$
'/hosts/horus/usr2/data0/lp98/30may98/tf/halpha/final/svt30may98.######.hasum', $
'/hosts/diapason/newi3/bart/lp98/svt_im30may98.######.trace_171_double_pike_25.d']

break_file,dirs,ll,pp,ff,ee,vv
fpat=ff+ee+vv                               ; filenames
spatt=strsplit(fpat,'######',/tail)
fpat=str_replace(fpat,'.######.','*')

cattemp=sswfits_struct(/addfits)
cattemp=add_tag(cattemp,'','FILENAME')

for i=0,n_elements(dirs)-1 do begin
   box_message,'Processing:>> ' + dirs(i)
   files=file_list(pp(i),'*'+fpat(i),/cd)
   nf=n_elements(files)
   delvarx,lpind,newind
   newind=replicate(cattemp,nf)
   for j=0,nf-1 do begin
      anaheader=anahead(files(j))
      newind(j)=anahead2struct(anaheader,strtemp=cattemp(0))  ; fill in some standards                        
    endfor     
;  adjustments for lapalma
   newind.filename=files(0:nf-1)
   newind.naxis1=2028
   newind.naxis2=2044
   newind.wavelnth=replicate(strmid(spatt(i),1,5),nf)
   if n_elements(outind) eq 0 then outind=newind else $
       outind=concat_struct(outind,newind)
   fmt_timer,outind
endfor

; time order
ss=sort(anytim(outind))
outind=temporary(outind(ss))

fmt_timer, outind, firstt, lastt
tgrid=timegrid(firstt, timegrid(lastt,day=2,/date_only,/yohkoh),$
	       /day,/date_only,/yohkoh)

for i=0,n_elements(tgrid)-2 do begin
  ss=sel_timrange(outind,tgrid(i),tgrid(i+1),/between)
  if ss(0) ne -1 then begin
      fmt_timer,outind(ss)
      write_genxcat,outind(ss),topdir=catdir, prefix='lapalma_', $
         /nelem
   endif
endfor

return

end