!
! P_MAKPLAN.NIC make a double beam map
!  
!
let execute "makplan"
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 makplan /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'".mdb"
if (sic$exist) then
 define header mak$pl 'name'".mdb" write
 let mak$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 mak$pl%major 1    ! new version
   let mak$pl%pa 0
   if (jansky_flag) then
     let mak$pl%pa counts_per_jy*32
   endif
   if (spike_flag) then
     let mak$pl%pa mak$pl%pa+1
   endif
   if (amplifier_flag) then 
     let mak$pl%pa mak$pl%pa+2
   endif
   if (gainc_flag) then
     let mak$pl%pa mak$pl%pa+4
   endif
   if (noise_flag) then
     let mak$pl%pa mak$pl%pa+8
   endif
   if (eleva_flag) then
     let mak$pl%pa mak$pl%pa+16
   endif
   if (opacity_flag) then
     let mak$pl%minor 10 
     let mak$pl%minor mak$pl%minor+scan_opacity
   endif
 endif
 del /var mak$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 mdb
if (do_map) then
  @ p_map
endif