!
! P_CONVERT.NIC converts AZ-EL maps in RA-DEC maps
!  
!
let execute "convert"
if (.not.exist(signal).and.scan_list.eq." ") then
  say "No input file opened"
  return
endif
on error "RETURN BASE"
! define char var_hea*3 var_bolo*3
! let var_hea 'exist(date_observ)' 
! let var_bolo 'exist(ref_chan)' 
! if (var_hea.eq."YES") then
!   var head re
! endif
! if (var_bolo.eq."YES") then
!   var bolo re
! endif
!
run convert /nowind
!
!
! this section has to be removed one of these days
!
sic search 'name'".cnv"
if (name.ne.source.and.sic$exist.and.scan_list.eq." ") then
  if (cnv_type.eq."EKH".or.cnv_type.eq."ekh") then
    sic search 'name'".ekh"
    if (sic$exist) then
      def head res$to 'name'".ekh" read
      def head con$ve 'name'".cnv" write
      let con$ve%pa res$to%pa
      let con$ve%minor res$to%minor
      let con$ve%major res$to%major
      del /var res$to con$ve
    endif
  else if (cnv_type.eq."SAA".or.cnv_type.eq."saa") then
    sic search 'name'".saa"
    if (sic$exist) then
      def head res$to 'name'".saa" read
      def head con$ve 'name'".cnv" write
      let con$ve%pa res$to%pa
      let con$ve%minor res$to%minor
      let con$ve%major res$to%major
      del /var res$to con$ve
    endif
  endif
endif
!
! if (var_hea.eq."NO") then
!   var hea off
! endif
! if (var_bolo.eq."NO") then
!   var bolo off
! endif
let type cnv
let aspect 0
@ p_map