anchor.diff:  
         return
         end
  +
  +      end program
   
         subroutine timestamp ( )
   c*********************************************************************72
  
positive.code:         X(I) = XO(J)
    260 CONTINUE
        RETURN
  
        END
  
        SUBROUTINE CHMTU2(N,P,W,C,Z,JDIM)
  
negative.code:       IPD = IPD - 1
        GO TO 10
        END
  
        SUBROUTINE BLDS1(N6,SS,IL,II,NXT,NLR)
  C SUBROUTINE TO EXPLICITLY DETERMINE SET  A1  WHEN
  C LEV .GT. 1 .
        use iso_fortran_env
        implicit none
  
        integer(int64) :: n6,il,ii,nxt,nlr
        real(real64), DIMENSION (N6) :: SS
        integer(int64) :: J,NEXT,IK,I,IJ,IRR
        J = IL - 1
        NEXT = NXT
        DO 30 I=IL,II,7
  