! @ xtable.clic 
! 
! A simple way to create a UV TABLE AFTER the Standard Calibration Procedure 
! of Robert Lucas 
! 
if .not.exist(tfile) then 
  define character tfile*80 /global 
endif 
! 
if (.not.exist(tffreq)) then 
  define double tffreq /global 
  define character tnfreq*12 /global 
  define character tsource*12 tband*3 /global 
  define integer trec tscan[2] tqual /global 
  define character tmode*4 tname*80 /global 
  define logical tdosub1 tdosub2 tdosub3 tdosub4 tdosub5 tdosub6 /global 
  define logical tdophase tstatus tlinenn tresamp tdoant /global 
  define double toffsets[2] tchannels tval tresa tref /global 
                                ! 
  let tdophase yes 
  let tdoant yes 
                                ! 
  let tscan[1] 0 
  let tscan[2] 10000 
  let toffsets 0 0 
  let tqual 4 
  let trec 0 
  let tmode CONT 
  let tband LSB 
                                ! 
  let tdosub1 yes 
  let tdosub2 yes 
  let tdosub3 yes 
  let tdosub4 no 
  let tdosub5 no 
  let tdosub6 no 
                                ! 
  let tlinenn no 
  let tresamp no 
                                ! 
  let tsource * 
  let tname "~/maps/" 
  let tstatus yes 
endif 
! 
symbol stop "SIC\PAUSE" 
symbol breaks " " 
! 
gui\panel "UV Table Creation package (A.Dutrey)" pr:clic/clic_table.hlp 
! 
gui\button "@ xtable_cree" create_the_table                
!
! Selection criteria 
! 
let tdophase 'tdophase' /prompt " Atmospheric Phase Correction ? (usually YES)" 
let tdoant 'tdoant' /prompt " Antenna-Based Calibration ? (usually YES)" 
! 
let tfile 'tfile' /prompt "Input Data File Name ?" /file "*.*pb" 
let tname 'tname' /prompt "Output UV Table Name ?" 
let tstatus 'tstatus' /prompt "New Table (YES) Update(NO) ?" 
let tsource 'tsource' /prompt "Source Name ?" 
let toffsets 'toffsets[1]' 'toffsets[2]' /prompt "R.A. & Dec. Offsets for Mosaics ?" 
! 
let tscan 'tscan[1]' 'tscan[2]' /prompt "First and last scan ?" 
let tqual 'tqual' /prompt "Scan Quality ?" /choice 1 2 3 4 5 6 7 8 
let trec 'trec' /prompt "Receiver number ?" /choice 1 2 
! 
let tmode 'tmode' /prompt "Selection Line or Continuum ?" /choice CONT LINE
let tband 'tband' /prompt "Band Used ?" /choice LSB USB DSB
! 
let tdosub1 'tdosub1' /prompt " Use L01 ?" 
let tdosub2 'tdosub2' /prompt " Use L02 ?" 
let tdosub3 'tdosub3' /prompt " Use L03 ?" 
let tdosub4 'tdosub4' /prompt " Use L04 ?" 
let tdosub5 'tdosub5' /prompt " Use L05 ?" 
let tdosub6 'tdosub6' /prompt " Use L06 ?" 
! 
! 
let tlinenn 'tlinenn' /prompt "Change line parameter ?" 
let tresamp 'tresamp' /prompt "Resample spectral data ?" 
! 
! 
gui\button "SIC\CONTINUE" line "Line parameters" "pr:clic/clic_table_line.hlp" "Parameters" "Line name & Frequency" 
let tlinenn 'tlinenn' /prompt "Change line parameter ?" 
! 
let tnfreq 'tnfreq' /prompt "Line Name" 
let tffreq 'tffreq' /prompt "Rest Frequency (MHz)" 
!! 
gui\button "SIC\CONTINUE" resampling "Resampling parameters" -
  "pr:clic/clic_table_res.hlp" "Parameters" "Resampling parameters" 
let tresamp 'tresamp' /prompt "Resample spectral data ?" 
! 
let tchannels 'tchannels' /prompt "New number of channels" 
let tref 'tref' /prompt "New reference channel" 
let tval 'tval' /prompt "Velocity at the reference channel" 
let tresa 'tresa' /prompt "New resolution" 
! 
gui\go "@ xtable_cree" "Create the Table" 
!