!
! $Id: all.clic,v 1.2 2003/01/23 08:52:08 lucas Exp lucas $
!
sic date
sic cpu
system "echo ""    elapsed      total    user_cpu      total     sys_cpu      total ! all.clic &1 &2 &3 &4 &5 "" >> pipe.log"
system "echo ""    -------      -----    --------      -----     -------      ----- ! 'SYS_DATE' "" >> pipe.log"
del /symbol SYS_DATE
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 3mm-table
define character table*32 status*3
let table 3mm
let status new
!
! 3mm-table.clic  
!      
set default  
set level 4
set scan 0 10000  
set offset 0 0  
set receiver 1  
set quality 4  
set weight tsys on  
set weight calibration on  
set phase antenna atmospher internal relative  
set amplitude antenna absolute jansky relative  
set rf_passband antenna frequency file on 
! 
!   
  file in 25-mar-1997-g067-&1
  set selection CONT DSB L01  
  find /proc corr /sou GG_TAU  
  if (found.ne.0) then
    table 'table'-&1 'status'
    let status "old"
  endif
end   procedure 3mm-table
!----------------------------------------------------------------------------
begin procedure 1mm-table
define character table*32 status*3
let table 1mm
let status new
!
! 1mm-table.clic  
!   
set default  
set level 4
set scan 0 10000  
set offset 0 0  
set receiver 2  
set quality 4  
set weight tsys on  
set weight calibration on  
set phase antenna atmospher external relative  
set amplitude antenna absolute jansky relative  
set rf_passband antenna frequency file on 
! 
!   
  file in 25-mar-1997-g067-&1
  set selection CONT DSB L01 TO L03  
  find /proc corr /sou GG_TAU  
  if (found.ne.0) then
    table 'table'-&1 'status'
    let status "old"
  endif
end   procedure 1mm-table
!----------------------------------------------------------------------------
begin procedure hco-table
define character table*32 status*3
let table hco
let status new
!
! hco-table.clic  
!   
set default  
set level 4
set scan 0 10000  
set offset 0 0  
set receiver 1  
set quality 4  
set weight tsys on  
set weight calibration on  
set phase antenna atmospher internal relative  
set amplitude antenna absolute jansky relative  
set rf_passband antenna frequency file on 
! 
!   
  file in 25-mar-1997-g067-&1
  set selection LINE LSB L02
  find /proc corr /sou GG_TAU  
  if (found.ne.0) then
    table 'table'-&1 'status' /RESAMPLE 48
    let status "old"
  endif
end   procedure hco-table
!----------------------------------------------------------------------------
begin procedure co-table
define character table*32 status*3
let table co
let status new
!
! co-table.clic  
!   
set default  
set level 4
set scan 0 10000  
set offset 0 0  
set receiver 2  
set quality 4  
set weight tsys on  
set weight calibration on  
set phase antenna atmospher external relative  
set amplitude antenna absolute jansky relative  
set rf_passband antenna frequency file on 
! 
!   
  file in 25-mar-1997-g067-&1
  set selection LINE DSB L04
  find /proc corr /sou GG_TAU  
  if (found.ne.0) then
    table 'table'-&1 'status' /RESAM 48
    let status "old"
  endif
end   procedure co-table
!----------------------------------------------------------------------------


!----------------------------------------------------------------------------
!
set data 2000 2000
sic log space_clic &2
!
! create a header file
!
  system  "rm 25-mar-1997-g067-&1.hpb"
  file o 25-mar-1997-g067-&1.hpb new
  dir 25-mar-1997-g067-&1-*.ipb
  exa dir_nfile
  exa dir_file
  for i 1 to dir_nfile
    file in 'dir_file[i]'
    find
    list /short
    set level 5
    copy headers antenna
  next
@ pipelineLog end create header file  &1
@ x_calib hide
let file_name 25-mar-1997-g067-&1
sic\symbol stop continue
say ""
say "Starting calibration ..."
say ""
@ x_calib_select
@ pipelineLog  end  select

@ x_calib_monitor
@ pipelineLog  end monitor
@ x_calib_rf
@ pipelineLog  end rf
@ x_calib_phase
@ pipelineLog  end   phase
for k 1 2
   if (irec[k].gt.0) then
       @ x_flux 'irec[k]' hide
       @ x_flux_default  
       @ x_flux_solve
       @ x_flux_get      
       @ x_flux_store
       @ x_flux_plot
   endif
   @ pipelineLog  end flux 'k'
next 
@ x_calib_ampli
@ pipelineLog end ampli
!
@ 3mm-table &1
@ pipelineLog end 3mm-table 
!
@ 1mm-table &1
@ pipelineLog end 1mm-table 
!
@ hco-table &1
@ pipelineLog end hco-table  
!
@ co-table &1
@ pipelineLog end co-table  
!
exit