!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
gui\panel "Find calibrators for NOEMA observations" gag_pro:x_find_calib.hlp
!
if .not.exist(source_name) then
  define character source_name*80 /global
endif
let source_name 'source_name' /prompt "Source Name"
!
if .not.exist(do_catalog) then
  define logical do_catalog /global
  let do_catalog no
endif
let do_catalog 'do_catalog' /prompt "Use Source Catalog Coordinates?"
!
if .not.exist(catalog_name) then
  define character catalog_name*80 /global
  let catalog_name "phase-pdb.sou"
endif
let catalog_name 'catalog_name' /prompt "Calibrator Catalog Name"
!
if .not.exist(search_radius) then
  define real search_radius /global
  let search_radius 20.
endif
let search_radius 'search_radius' /prompt "Search radius (deg.)"
!
if .not.exist(flux_lim) then
  define real flux_lim[3] /global
  let flux_lim 0.1 0.6 2
endif
let flux_lim 'nint(flux_lim[1]*10)/10' 'nint(flux_lim[2]*10)/10' 'nint(flux_lim[3]*10)/10' /prompt "Flux limits (Jy)"
!
say ""
say "If Source Catalog is used"
if .not.exist(local_catalog) then
  define char local_catalog*128 /global
endif
let local_catalog 'local_catalog' /prompt "Source Catalog Name"
say ""
say "If Source Catalog is not used"
if .not.exist(source_system) then
  define character source_system*6 /global
  let source_system "EQ"
endif
let source_system 'source_system' /prompt "Coordinate system"
!
if .not.exist(source_epoch) then
  define real source_epoch /global
  let source_epoch 2000.0
endif
let source_epoch 'source_epoch' /prompt "Source epoch"
!
if .not.exist(source_ra) then
  define character source_ra*20 /global
endif
let source_ra 'source_ra' /prompt "Right Ascension"
!
if .not.exist(source_dec) then
  define character source_dec*20 /global
endif
let source_dec 'source_dec' /prompt "Declination"
!
gui\button "@ x_do_find" "FIND"
gui\button "source /cursor" "CURSOR"
gui\go "@ x_do_find"
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
