anchor.diff:  !
   !
   ! - Cleaning 
  -  Write(9,*) "/bin/rm predof.dat"
  +  Write(9,*) "/bin/rm -f predof.dat"
   !
    close(9)
   !
  
positive.code: Write(2,*) "echo '            / value as done in previous versions - GS & FC July 27 2009 - '"
  !
  !
  Write(2,*) "/bin/rm visco.tmp"
  !
  Write(2,*) "cp ", trim(adjustl(visco_file)), " ", depot//"/TABOO/"
  Write(2,*) "cp ", trim(adjustl(visco_file)), " ", depot//"/Love-Numbers-by-TABOO/"  
  
negative.code: 		Write(2,*) "mv tmpb* ", depot//"/rsl/rsl-curves/"
  	        if(option_gmt=='y') Write(2,*) "mv rslp*.ps ", depot//"/rsl/rsl-curves/ps"
  	        if(option_gmt=='y') Write(2,*) "mv rslp*.pdf ", depot//"/rsl/rsl-curves/pdf"
  !		Write(2,*) "/bin/rm -f junky*"
  		Endif
  !
  	        Write(2,*) "mv rsld*.dat ", depot//"/rsl/rsl-curves/"
  