!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
define character r*5 n*5 b*5
r = 'ansi%red'
n = 'ansi%none'
b = 'ansi%blue'
!
! IMAGER Version with MAP_CENTER to get the Phase center 
sic precis auto
define integer level
if pro%narg.eq.0 then
  let level 1
else if "&1".eq."BRIEF" then
  let level -1
else if ("&1".eq."?") then
  let level 1
else if ("&1".eq."??") then
  let level 2
else
  let level 3
endif
!
if (level.ge.0) then
  say " UV_MAP makes a dirty image and a dirty beam from the UV data"
  say " "
  say " Behaviour is controlled by a number of SIC Variables"
  say " - BEAM_STEP and MAP_PRECIS control the dirty beam precision"
  say " - MAP_CENTER controls shifting ang rotation"
  say " - MAP_CELL[2], MAP_SIZE[2], MAP_FIELD[2] control the map sampling"
  say " - MAP_UVTAPER[3], MAP_UVCELL and MAP_ROBUST"
  say "     control the beam shape and weighting scheme"
  say " "
endif
!
if (exist(fields)) then
  if (abs(fields%n).gt.1) then
    say "  ----   Mosaic of "'abs(fields%n)'" fields   ---- "
    say "  Primary beam truncation level (%) "'b'"MAP_TRUNCATE    "'n'"[" 'r''map_truncate''n'"]  "
  endif
endif
say "---- Basic parameters                            Selected       Recommended"
say "  Map Size (pixels)              "'b'"MAP_SIZE        "'n'"[" 'r''map_size[1]' 'map_size[2]''n' "]" -
  'n'"  [" 'r''rec_size[1]' 'rec_size[2]''n' "]"
say "  Field of view (arcsec)         "'b'"MAP_FIELD       "'n'"[" 'r''map_field[1]' 'map_field[2]''n' "]" -
  'n'"  [" 'r''rec_field[1]' 'rec_field[2]''n' "]" 
say "  Pixel size (arcsec)            "'b'"MAP_CELL        "'n'"[" 'r''map_cell[1]' 'map_cell[2]''n' "]" -
  'n'"  [" 'r''rec_cell[1]' 'rec_cell[2]''n' "]" 
say "  Map center                     "'b'"MAP_CENTER      "'n'"[" 'r''map_center''n' "]      "
say "  Robust weighting parameter     "'b'"MAP_ROBUST      "'n'"[" 'r''map_robust''n' "]"
say "  UV cell size (meter)           "'b'"MAP_UVCELL      "'n'"[" 'r''map_uvcell''n' "]   " -
  'n'"      [" 'r''rec_uvcell''n' "]   "
say "  UV Taper (m,m,°)               "'b'"MAP_UVTAPER     "'n'"[" 'r''map_uvtaper[1]' 'map_uvtaper[2]' 'map_uvtaper[3]''n'" ] "
if (level.lt.2) return
!
say "---- Precision parameters "
say "  Channels per single beam       "'b'"BEAM_STEP       "'n'"[" 'r''beam_step''n' "]"
say "  Tolerange at map edge (pixels) "'b'"MAP_PRECIS      "'n'"[" 'r''map_precis''n'"]"
say "---- Efficiency parameters "
say "  Rounding method  (0,1 or 2)    "'b'"MAP_POWER       "'n'"[" 'r''map_power''n'" ]"    
say "  Rounding precision             "'b'"MAP_ROUNDING    "'n'"[ "'r''map_rounding''n'" ]"
!
if (level.lt.3) return
say "---- Obsolete parameters"
say "  MAP_ANGLE, MAP_SHIFT, MAP_RA and MAP_DEC, replaced by "'b'"MAP_CENTER"'n'
say "---- Special test parameters "
say "  UV Taper exponent              "'b'"MAP_TAPEREXPO   "'n'"[ "'r''map_taperexpo''n'" ]"
say "  Gridding Convolution method    "'b'"MAP_CONVOLUTION "'n'"[" 'r''map_convolution''n' "]"
say "  Map Version  (-1,0,1)          "'b'"MAP_VERSION     "'n'"[" 'r''map_version''n' "]"
