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:     enddo
  
      deallocate (Pordr)
      deallocate (Nch)
      deallocate (Iw)
      deallocate (Mch)
    end subroutine POSORD
  
negative.code:     integer(kind=kint), intent(out):: Parent(:)
      integer(kind=kint), intent(inout):: Invp(:)
      integer(kind=kint), intent(out):: Iperm(:)
      integer(kind=kint), intent(out):: Nch(:)
      !------
      integer(kind=kint), allocatable:: Pordr(:)
      integer(kind=kint), allocatable:: Iw(:)
      integer(kind=kint), allocatable:: Mch(:)
      integer(kind=kint):: i
  