anchor.diff:        enddo loop2
         exit
       enddo loop1
  +
  +    deallocate (DEG)
  +    deallocate (MARker)
  +    deallocate (RCHset)
  +    deallocate (NBRhd)
  +    deallocate (QSIze)
  +    deallocate (QLInk)
  +    deallocate (ADJncy)
     end subroutine GENQMD
   
     !======================================================================!
  
positive.code:   !======================================================================!
    !> @brief POSORD
    !======================================================================!
    subroutine POSORD(Parent,Btree,Invp,Iperm,Pordr,Nch,Neqns,Iw,Qarent,Mch)
      implicit none
      !------
      integer(kind=kint), intent(in):: Neqns
      integer(kind=kint), intent(in):: Btree(2,*)
      integer(kind=kint), intent(in):: Qarent(:)
      integer(kind=kint), intent(out):: Parent(:)
      integer(kind=kint), intent(out):: Pordr(:)
      integer(kind=kint), intent(out):: Nch(:)
      integer(kind=kint), intent(inout):: Invp(:)
      integer(kind=kint), intent(out):: Iperm(:)
      integer(kind=kint), intent(out):: Iw(:)
      integer(kind=kint), intent(out):: Mch(0:Neqns+1)
      !------
      integer(kind=kint):: i
      integer(kind=kint):: ii
      integer(kind=kint):: invpos
  
negative.code:   !                     irr=1          is a bottom node then rotation is
    !                                    performed
    !======================================================================!
    subroutine ROTATE(Xadj,Adjncy,Invp,Iperm,Parent,Btree,Izz,Neqns,Irr)
      implicit none
      !------
      integer(kind=kint), intent(in):: Izz
  