!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
if (map%newnames) then
   if (pro%narg.eq.0) then
      say "UV_MAP makes a dirty image and a dirty beam from a UV Table"
      say " "
      say "* The file name of the UV table is given by variable NAME"
      say "  and the extension .uvt"
      say "* The outputs are a dirty image and a dirty beam"
      say "* Variables MAP_SHIFT, MAP_RA, MAP_DEC, MAP_ANGLE are used for"
      say "  centering and rotation"
      say "* Variables MAP_UVTAPER[3], MAP_WEIGHT, and MAP_ROBUST"
      say "  control the beam shape and weighting scheme"
      say "* MAP_CELL[2], MAP_SIZE[2], MAP_FIELD[2] control the map sampling"
      say "* MAP_BEAM_STEP and MAP_PRECIS control the dirty beam precision"
      say "* MCOL[2] defines the channel range"
      say " "
      say " INPUT  FILE  [" 'bold''name'".uvt"'norm'" ]"
      say " OUTPUT FILES [" 'bold''name'".lmv"'norm' ", and " 'bold''name'".beam"'norm' "]"
      say " "
   endif
   !
   if (map_shift) then
      say "  Map centered on " 'bold''map_ra' 'map_dec''norm' " at angle " 'bold''map_angle''norm'
   else
      say "  Map not shifted neither rotated"
   endif
   say " "
   !
   say "   MAP_UVTAPER [" 'bold''map_uvtaper[1]' 'map_uvtaper[2]' 'map_uvtaper[3]''norm' "]      MAP_TAPEREXPO [" 'bold''map_taperexpo''norm' "]"
   define character weikind*16
   let weikind 'map_weight[1:2]' /lower
   if (weikind.EQ."NA") then
      let weikind "natural" ! The program does not change the user input
      say "   MAP_WEIGHT ["'weikind'" weighting]"
   else
      let weikind "robust" ! The program does not change the user input
      say "   MAP_WEIGHT ["'weikind'" weighting]"
      say "   MAP_ROBUST [" 'bold''map_robust''norm' "]      MAP_UVCELL [" 'bold''map_uvcell'"]"
   endif
   say "   MAP_SIZE [" 'bold''map_size[1]' 'map_size[2]''norm' "]      MAP_FIELD [" 'bold''map_field[1]' 'map_field[2]''norm' "]"
   say "   MAP_CELL [" 'bold''map_cell[1]' 'map_cell[2]''norm' "]      WCOL [" 'bold''wcol''norm' "]"
   say "   MCOL     [" 'bold''mcol[1]' 'mcol[2]''norm' "]      MAP_CONVOLUTION [" 'bold''convolution''norm' "]"
   say "   MAP_BEAM_STEP [" 'bold''map_beam_step''norm' "]  MAP_PRECIS [" 'bold''nint(map_precis*100)/100'"]"
else
   if (pro%narg.eq.0) then
      say "UV_MAP makes a dirty image and a dirty beam from a UV Table"
      say " "
      say "* The file name of the UV table is given by variable NAME"
      say "  and the extension .uvt"
      say "* The outputs are a dirty image and a dirty beam"
      say "* MAP_FIELD[2], MAP_CELL[2], and MAP_SIZE[2] control the map sampling"
      say "* UV_SHIFT, MAP_RA, MAP_DEC, MAP_ANGLE control centering and rotation"
      say "* Variables UV_TAPER[3], WEIGHT_MODE, and UV_CELL"
      say "  control the beam shape and weighting scheme"
      say "* WCOL, MAP_BEAM_STEP and MAP_PRECIS control the dirty beam precision"
      say "* MCOL[2] defines the channel range"
      say " "
      say "	INPUT  FILE  [" 'bold''name'".uvt"'norm'" ]"
      say "	OUTPUT FILES [" 'bold''name'".lmv"'norm' ", and " 'bold''name'".beam"'norm' "]"
      say " "
   endif
   !
   if (uv_shift) then
      say "	Map centered on " 'bold''map_ra' 'map_dec''norm' " at angle " 'bold''map_angle''norm'
   else
      say "	Map nor shifted neither rotated"
   endif
   say " "
   !
   say "	MAP_FIELD [" 'bold''map_field[1]' 'map_field[2]''norm' "]         	MAP_CELL [" 'bold''map_cell[1]' 'map_cell[2]''norm' "]"
   say "	MAP_SIZE [" 'bold''map_size[1]' 'map_size[2]''norm' "]	        CONVOLUTION [" 'bold''convolution''norm' "]"
   say " "
   say "	UV_TAPER [" 'bold''uv_taper[1]' 'uv_taper[2]' 'uv_taper[3]''norm' "]              TAPER_EXPO [" 'bold''taper_expo''norm' "]"
   say "	WEIGHT_MODE [" 'bold''weight_mode''norm' "]		UV_CELL [" 'bold''uv_cell[1]' 'uv_cell[2]''norm' "]"
   say " "
   say "        MAP_BEAM_STEP [" 'bold''map_beam_step''norm' "]            MAP_PRECIS [" 'bold''nint(map_precis*100)/100'"]"
   say "	MCOL	 [" 'bold''mcol[1]' 'mcol[2]''norm' "]                WCOL [" 'bold''wcol''norm' "]"
endif
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
