! PR:I_UV_MAP.GRAPHIC 
! List input parameters for INPUT UV_MAP 
!---------------------------------------------------------------------- 
define character b*4 n*4 
sic\let b ""                ! 4 is underline, 7 reverse video but both 
sic\let n ""                !      are mapped to same attribute on dumb VT100 
sic\say " UVMAP will compute a map from a UV Table " 'b''name'.uvt'n' 
sic\say "   by running GILDAS task UVMAP " 
sic\say " " 
sic\say "- The input file is given by variable NAME, extension is .UVT" 
sic\say "- Produces " 'b''name'.beam'n' " and " 'b''name'.lmv'n' 
sic\say "_ Variables UV_SHIFT, MAP_RA, MAP_DEC, MAP_ANGLE are used for centering" 
sic\if (uv_shift) then 
  sic\say "	Map centered on " 'b''map_ra' 'map_dec''n' " at angle " 'b''map_angle''n' 
  sic\else 
  sic\say "	Map not shifted and not rotated" 
  sic\endif 
  sic\say "_ Variables UV_TAPER[2], WEIGHT_MODE, MAP_SIZE[2], MAP_CELL[2], UV_CELL[2], " 
  sic\say "	WCOL, MCOL[2], and CONVOLUTION are used as input parameters:" 
  sic\say "	UV_TAPER [" 'b''uv_taper[1]' 'uv_taper[2]' 'uv_taper[3]''n' "]	WEIGHT_MODE [" 'b''weight_mode''n' "]" 
  sic\say "	MAP_SIZE [" 'b''map_size[1]' 'map_size[2]''n' "]		UV_CELL [" 'b''uv_cell[1]' 'uv_cell[2]''n' "]" 
  sic\say "	MAP_CELL [" 'b''map_cell[1]' 'map_cell[2]''n' "]		WCOL [" 'b''wcol''n' "]" 
  sic\say "	MCOL [" 'b''mcol[1]' 'mcol[2]''n' "]		CONVOLUTION [" 'b''convolution''n' "]"