!
! P_ONOFF.NIC to produce calibrated tables
!  
!
def character display_mean*3
let display_mean "0"'scan_list'
if (display_mean.ne."0") then               ! compute mean
  if (.not.exist(onoff_error)) then
    define logical onoff_error /global
    def int nmax /glob
  endif
  let onoff_error no
  @ p_onoff-sum
  if (plot_map.and..not.onoff_error) then
    @ onoff_map
  endif
!  del /var  onoff_error nmax
  return
endif
!
if (.not.exist(signal)) then
  say "No input file opened"
  return
endif
on error "RETURN BASE"
define char var_hea*3 var_ante*3 wobbler*3 var_bolo*3 var_flag*3
define inte var_onoff_mode
!
let var_flag 'exist(jansky_flag)' 
let var_hea  'exist(date_observ)' 
let var_bolo 'exist(ref_chan)' 
var flag wr
var hea
var bolo
!
let var_onoff_mode 1 
if (onoff_mode.eq.0) then
 say "ONOFF_MODE is undefined ..."
 say "Setting symmetric mode ..."
 let onoff_mode 1
 let var_onoff_mode 0
endif
!
run onoff /nowin
let command "ONOFF"
let noise_flag noise
@ p_signal
@ p_onoff-sum
if (plot_map) then
  @ onoff_map
endif
!
if (var_onoff_mode.eq.0) then
 let onoff_mode 0
endif
!
if (var_flag.eq."NO") then
  var flag off
endif
if (var_hea.eq."NO") then
  var hea off
endif
if (var_bolo.eq."NO") then
  var bolo off
endif