anchor.diff:                endif
               enddo
               exit
  -            10        enddo
  -          else
  -            Rchsze = Rchsze + 1
  -            Rchset(Rchsze) = nabor
  -            Marker(nabor) = 1
  +          enddo loop1
  +        else
  +          Rchsze = Rchsze + 1
  +          Rchset(Rchsze) = nabor
  +          Marker(nabor) = 1
           endif
         endif
       enddo
  
positive.code:     nc = 0
      Ir = 0
      l = 1
      do i = 1, Neqns
        Xlnzr(i) = l
        ks = Xleaf(i)
        ke = Xleaf(i+1) - 1
  
negative.code:           Ancstr(l) = i
            Parent(l) = i
          endif
        enddo loop1
      enddo
      do i = 1, Neqns
        if ( Parent(i)==0 ) Parent(i) = Neqns + 1
      enddo
      Parent(Neqns+1) = 0
  
      if ( IDBg1/=0 ) then
        write (6,"(' parent')")
        write (6,"(2I6)") (i,Parent(i),i=1,Neqns)
      endif
    end subroutine GENPAQ
  
    !======================================================================!
  