!
! $Id: all.tifits,v 1.3 2003/01/23 08:52:35 lucas Exp lucas $
!
sic date
sic cpu
system "echo ""    elapsed      total    user_cpu      total     sys_cpu      total ! all.tifits &1 &2 &3 &4 &5 "" >> pipe.log"
system "echo ""    -------      -----    --------      -----     -------      ----- ! 'SYS_DATE' "" >> pipe.log"
del /symbol SYS_CPU
del /symbol use_cpu
del /symbol elapsed
!----------------------------------------------------------------------------
begin procedure pipelineLog
  sic cpu
  system "echo ""'elapsed' 'use_cpu' 'sys_cpu' ! &1 &2 &3 &4 &5"" >> pipe.log"
end   procedure pipelineLog
!----------------------------------------------------------------------------
begin procedure fromfits
  directory "&1-*.fits"
  exa dir_file
  for i 1 to dir_nfile
    system "rm &1-"'i'".ipb"
    file out &1-'i'.ipb NEW
    set level 5
    read 'dir_file[i]'
!!    system "rm "dir_file[i]'
    set level 1
  next  
end procedure fromfits
!----------------------------------------------------------------------------
! 
!$ rm *.ipb
sic log space_clic &2
@ fromfits 25-mar-1997-g067-&1
@ pipelineLog end fits conversion
!
exit
!