anchor.diff:    	Write(19,*) "${GMT} psbasemap -X3 -Y3 -U'SELEN 2.9' -JX16/10  -G255 -R0/100/0/50 -K > rsl-misfit.ps" 
   	Write(19,*) "awk '{print $1, $2}' mis.dat > mis.tmp"
      	Write(19,*) "pshistogram mis.tmp -JX -R -B100a20:misfit:/a10:frequency:WSen -G140 -W2 -O -K >> rsl-misfit.ps" 
  -	Write(19,*) "/bin/rm mis.tmp"
  +	Write(19,*) "/bin/rm -f mis.tmp"
   !
    	open (8,file='tmph.dat',status='unknown')		  	         
   	If(cd=='-1')then 
  
positive.code:   Write(2,*) " echo '---> Purging the working directory: '"  
    Write(2,*) "#echo --------------------------------------"
    Write(2,*) " echo"
    Write(2,*) "/bin/rm *.grd"
    Write(2,*) "/bin/rm *.jun"  
    Write(2,*) "/bin/rm junk*"  
    Write(2,*) "/bin/rm *.mod" 
    Write(2,*) "/bin/rm *.obj" 
    Write(2,*) "/bin/rm *.old"
    Write(2,*) "/bin/rm *.bak"
  Endif
  !
  ! ==========================================================
  
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/"							  
  