anchor.diff:    110 NS1 = NS1 + NLR
         RETURN
         END
  +
         SUBROUTINE DETNS2(NA,A,N6,SS,IL,IR,II,NXT,V,NS2,NLR)
   C SUBROUTINE TO COMPUTE THE CARDINALITY OF SET  A2 .
  -      DIMENSION A(NA),SS(N6)
  +      use iso_fortran_env
  +      implicit none
  +
  +      integer(int64) :: na,n6,il,ir,ii,nxt,ns2,nlr
  +      real(real64) :: v
  +      real(real64), DIMENSION (NA) :: A
  +      real(real64), DIMENSION (N6) :: SS
  +      integer(int64) :: next,is,i6,i,j,ner,irr
  +
         NS2 = 0
         NEXT = NXT
         DO 50 I=IL,II,7
  
positive.code:         end do
          ! Unhappily, because the casting below, this means the program
          ! don't work with a number of items bigger than an int32.
          call sortr(n,rr,pp,real(jdim, real64))
          do j=1,n
            i = pp(j)
            po(j) = p(i)
            wo(j) = w(i)
          end do
          call mtu1(n,po,wo,c,0.,z,xo,jdim,jub,x,rr)
          do j=1,n
            x(j) = 0
          end do
  
negative.code: C STATEMENTS  1 - 10 .
  C
     10 IF ( LEV .GT. 1 )  GO TO 20
        CALL FORWD(N,S,N6,SS,LEV,L,R,T,1_int64,V,JFLAG)
        GO TO 30
     20 CALL FORWD(N6,SS,N6,SS,LEV,L,R,T,R(LEV)+1,V,JFLAG)
     30 IF ( JFLAG .EQ. 0 ) GO TO 20
  