!
! P_SHIFT_AND_ADD.NIC make a Az-EL map
!  
!
if (.not.exist(signal)) then
  say "No input file opened"
  return
endif
on error "RETURN BASE"
define char var_hea*3 var_cali*3 var_flag*3
let var_hea  'exist(date_observ)' 
let var_flag 'exist(jansky_flag)' 
let var_cali 'exist(amb_temp)' 
var hea
var flag
var cali
!
run shift_and_add /nowin
!
! this section is preliminary and will be changed
!
def logi spike_flag eleva_flag total_flag
let spike_flag .false. 
let eleva_flag .false. 
for i 1 to nchan
  if (despike_flag[i].ge.0) then
    let spike_flag .true.
  endif
next
if (gaine_flag) then
  let eleva_flag .true.
endif
sic search 'name'".saa"
if (sic$exist) then
  define header saa$pl 'name'".saa" write
  let saa$pl%pa -1
  let total_flag jansky_flag.or.spike_flag.or.amplifier_flag.or.gainc_flag.or.noise_flag.or.opacity_flag.or.eleva_flag
  if (total_flag) then
    let saa$pl%major 1    ! new version
    let saa$pl%pa 0
     if (jansky_flag) then
       let saa$pl%pa counts_per_jy*32
    endif
    if (spike_flag) then
      let saa$pl%pa saa$pl%pa+1
    endif
    if (amplifier_flag) then 
      let saa$pl%pa saa$pl%pa+2
    endif
    if (gainc_flag) then
      let saa$pl%pa saa$pl%pa+4
    endif
    if (noise_flag) then
      let saa$pl%pa saa$pl%pa+8
    endif
    if (eleva_flag) then
      let saa$pl%pa saa$pl%pa+16
    endif
    if (opacity_flag) then
      let saa$pl%minor 10
      let saa$pl%minor saa$pl%minor+scan_opacity
    endif
  endif
  del /var saa$pl
endif
!
! exit
!
if (var_hea.eq."NO") then
  var hea off
endif
if (var_flag.eq."NO") then
  var flag off
endif
if (var_cali.eq."NO") then
  var cali off
endif
let type saa
let cnv_type saa
if (do_map) then
  @ p_map
endif