! 
! DO_CLEAN.MAP 
! &1 = HOGBOM, CLARK, SDI, or MRC 
! 
def char method*20 
let method &1 
!LET FIRST PLANE 
!LET LAST PLANE 
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 plane to lplane 
  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