anchor.diff:  !
   !
   ! - Cleaning 
  -  Write(9,*) "/bin/rm predof.dat"
  +  Write(9,*) "/bin/rm -f predof.dat"
   !
    close(9)
   !
  
positive.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 junky*"
  		Endif
  !
  	        Write(2,*) "mv rsld*.dat ", depot//"/rsl/rsl-curves/"
  
negative.code: 		Write(2,*) "mv lonlat_rslc.dat", " "//depot//"/rsl/rsl-contours/"	
  		Write(2,*) "mv rslc-cont.dat", " "//depot//"/rsl/rsl-contours/"
  		Write(2,*) "mv rslc.dat", " "//depot//"/rsl/rsl-contours/"
  		Write(2,*) "/bin/rm -f shrslc.bin"
  		Write(2,*) "mv ", trim(adjustl(file_gmt)), " "//depot//"/rsl/rsl-contours/"	
  		if(option_gmt=='y') Write(2,*) "mv rslc-map.ps", " "//depot//"/rsl/rsl-contours/"
  		Write(2,*) "mv rslc*.tmp", " "//depot//"/rsl/rsl-contours/"							  
  