anchor.diff:    !======================================================================!
     !> @brief GENPAQ
     !======================================================================!
  -  subroutine GENPAQ(Xadj,Adjncy,Invp,Iperm,Parent,Neqns,Ancstr)
  +  subroutine GENPAQ(Xadj,Adjncy,Invp,Iperm,Parent,Neqns)
       implicit none
       !------
       integer(kind=kint), intent(in):: Neqns
  
positive.code:     !
      allocate (IA(FCT%NEQns+1),stat=IERror)
      if ( IERror/=0 ) stop "ALLOCATION ERROR, ia: SUB. matini"
      !WINDEBUG
      allocate (JA(2*FCT%NTTbr),stat=IERror)
      if ( IERror/=0 ) stop "ALLOCATION ERROR, ja: SUB. matini"
      call STIAJA(FCT%NEQns,IA,JA,JCPt,JCOlno)
  
negative.code:         if (.not. found) cycle loop1
  
          search = j
          Marker(node) = 1
          call QMDRCH(node,Xadj,Adjncy,Deg,Marker,rchsze,Rchset,nhdsze,Nbrhd)
          nxnode = node
  