anchor.diff:  
           nsnap=nsnap+1
   
  -	sstring(1:4)='SNAP'
  +	      sstring(1:4)='SNAP'
           sstring(5:5)=nstring(1+nsnap/100:1+nsnap/100)
           istring=1+MOD(nsnap,100)/10
           sstring(6:6)=nstring(istring:istring)
           istring=1+MOD(nsnap,10)
           sstring(7:7)=nstring(istring:istring)
           filename=sstring(1:7)
  -	WRITE(6,'(a)')filename
  +	      WRITE(6,'(a)')filename
           OPEN(UNIT=ubodsout,FILE=filename,STATUS='NEW')
   
           WRITE(ubodsout,20) nbodies,tnow
  
positive.code: 
          INCLUDE 'scf.h'
  
  	CHARACTER*7 filename
  	CHARACTER*8 filepar
  
  C=======================================================================
  
  
negative.code: C All particles initially bound.
          DO 10 i=1,nbodies
             ibound(i)=1
  	         tub(i)=zero
   10     CONTINUE
  
          CALL startout
  