anchor.diff:  Write(2,*) "echo '+++>  [existing data will be overwritten]'"
   Write(2,*) "    "
   Write(2,*) "fi"
  +Write(2,*)
   !
   !
   ! ============================== 
  
positive.code: ! ==============================
  if(option_purge=='y') then
    Write(2,*) " "
    Write(2,*) "/bin/rm *.exe"
    Write(2,*) "/bin/rm *.grd"
    Write(2,*) "/bin/rm *.jun"  
    Write(2,*) "/bin/rm *.log"
    Write(2,*) "/bin/rm *.tmp" 
    Write(2,*) "/bin/rm *.cpt"
    Write(2,*) "/bin/rm *tmp*"
    Write(2,*) "/bin/rm junk*"  
    Write(2,*) "/bin/rm *.mod" 
    Write(2,*) "/bin/rm *.obj" 
    Write(2,*) "/bin/rm *.o"
    Write(2,*) "/bin/rm *.old"
    Write(2,*) "/bin/rm *.bak"
    Write(2,*) "/bin/rm fort*"
  Endif
  !
  Write(2,*) "echo ''"
  
negative.code: !
  Write(2,*) "if [ -f  ./gmtdefaults4  ]" 
  Write(2,*) "then"
  Write(2,*) "/bin/rm -f -v ./gmtdefaults4"
  Write(2,*) "fi"
  !
  Write(2,*) "/bin/rm -f -v *brok*.dat"
  !
  If(option_nm=='y') Write(2,*) "mv taboo.log ",    depot//"/log/"
  Write(2,*) "mv selen.log ",    depot//"/log/"
  Write(2,*) "cp config.dat ",   depot//"/log/"
  !Write(2,*) "cp config.f90 ",   depot//"/log/"
  Write(2,*) "cp data.inc ",     depot//"/log/"
  Write(2,*) "cp selen.sh ",     depot//"/log/"
  !
  