!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
if ("&1none".eq."none") then
  say "CLEAN deconvolves a dirty map using the known dirty beam"
  say " "
  say "* The file name of the dirty map is given by variable NAME and"
  say "  the extension .lmv"
  say "* The file name of the dirty beam is given by variable NAME and"
  say "  the extension .beam"
  say "* The outputs are a clean map ('NAME'.lmv_clean) and"
  say "  a residual image ('NAME'.lmv-res)"
  say "* Variables METHOD, GAIN, NITER, FRES, ARES, BLC[2], TRC[2], MAJOR,"
  say "  MINOR, ANGLE, and BEAM_PATCH are used as input parameters:"
  say " "
  say " INPUT  FILES [" 'bold''name'".lmv"'norm'" , and " 'bold''name'".beam"'norm' "]"
  say " OUTPUT FILES [" 'bold''name'".lmv-clean"'norm' ", and " 'bold''name'".lmv-res"'norm' "]"
  say " "
endif
!
define double temp
let temp 'int(gain*1000)/1000'
let method 'method' /upper
say "     METHOD [" 'bold''method''norm' "]         GAIN [" 'bold''temp''norm' "]"
if (method.eq."SDI") then
  say "     NITER [" 'bold''niter''norm' "]            NMAJOR [" 'bold''nmajor''norm' "]"
else if (keep) then
  say "     NITER [" 'bold''niter''norm' "]"
else
  say "     NITER [" 'bold''niter''norm' "]         (Stop cleaning when converged even if niter < "'niter'")"
endif
let temp 'int(fres*1000)/1000'
say "     FRES [" 'bold''temp''norm' "]            ARES [" 'bold''ares''norm' "]"
say "     BLC [" 'bold''blc[1]' 'blc[2]''norm' "]               TRC [" 'bold''trc[1]' 'trc[2]''norm' "]"
say "     MAJOR [" 'bold''major''norm' "arc sec]        MINOR [" 'bold''minor''norm' "arc sec]"
say "     ANGLE [" 'bold''angle''norm' "deg E from N]   BEAM_PATCH [" 'bold''beam_patch[1]' 'beam_patch[2]''norm' "]"
let umet 'method' /upper /new chara*6
if (umet.eq."MULTI") then
  say "     SMOOTH [" 'bold''smooth''norm'"]         (Smoothing factor)"
else if (umet.eq."MRC") then
  say "     RATIO [" 'bold''ratio''norm' "]          (Smoothing ratio)"
endif
say " "
if (mosaic) then
  say "* Mosaic mode is ON "
  let temp 'int(search_w*1000)/1000'
  say " SEARCH_W  [" 'bold''temp''norm' "] "
  let temp 'int(restore_w*1000)/1000'
  say " RESTORE_W [" 'bold''temp''norm' "] "
else
  say "* Mosaic mode is OFF "
endif
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
