anchor.diff:  
       allocate (Pordr(Neqns+1),stat=IERror)
       if ( IERror/=0 ) stop "ALLOCATION ERROR, pordr: SUB. posord"
  -    allocate (Nch(Neqns+1),stat=IERror)
  -    if ( IERror/=0 ) stop "ALLOCATION ERROR, nch: SUB. posord"
       allocate (Iw(Neqns+1),stat=IERror)
       if ( IERror/=0 ) stop "ALLOCATION ERROR, iw: SUB. posord"
       allocate (Mch(0:Neqns+1),stat=IERror)
  
positive.code:   !======================================================================!
    !> @brief POSORD
    !======================================================================!
    subroutine POSORD(Parent,Btree,Invp,Iperm,Neqns,Qarent)
      implicit none
      !------
      integer(kind=kint), intent(in):: Neqns
  
negative.code:     enddo
  
      deallocate (Pordr)
      deallocate (Iw)
      deallocate (Mch)
    end subroutine POSORD
  