! 
! DO_CLEAN.MAP 
! &1 = HOGBOM, CLARK, SDI, or MRC 
! 
define integer n1 n2 
let n1 max(1,first) 
if last.eq.0 then 
  define header a 'name'.lmv read 
  let n2 a%dim[3] 
  del /var a 
else 
  let n2 last 
endif 
say channels 'n1' to 'n2' 
! 
def char method*20 
let method &1 
! 
if (do_plot.eq."NONE") then 
  symbol symbol_plot " " 
else 
  symbol symbol_plot "/PLOT "'do_plot' 
endif 
! 
if ((flux[1].ne.0).or.(flux[2].ne.0)) then 
  symbol symbol_flux "/FLUX "'flux[1]'" "'flux[2]' 
else 
  symbol symbol_flux " " 
endif 
! 
if ((method.eq."MRC").and.(ratio.ne.0)) then 
  symbol symbol_ratio "/RATIO "'ratio' 
else 
  symbol symbol_ratio " " 
endif 
! 
for i n1 to n2 
                                ! 
  show dirty 'i' 
  supp 'name'-'i'.pol 
  supp /plot 
  if (method.eq."HOGBOM") then 
    clean\hogbom 'i' 'symbol_flux' 
  else if (method.eq."CLARK") then 
    clean\clark 'i' 'symbol_plot' 'symbol_flux' 
  else if (method.eq."SDI") then 
    clean\sdi 'i' 'symbol_plot' 
  else if (method.eq."MRC") then 
    clean\mrc 'i' 'symbol_plot' 'symbol_flux' 'symbol_ratio' 
  endif 
                                ! 
next