anchor.diff:      implicit none
       !------
       integer(kind=kint), intent(in):: Root
  -    integer(kind=kint), intent(in):: Adjncy(*)
  -    integer(kind=kint), intent(in):: Deg(*)
  -    integer(kind=kint), intent(in):: Xadj(*)
  +    integer(kind=kint), intent(in):: Adjncy(:)
  +    integer(kind=kint), intent(in):: Deg(:)
  +    integer(kind=kint), intent(in):: Xadj(:)
       integer(kind=kint), intent(out):: Nhdsze
       integer(kind=kint), intent(out):: Rchsze
  -    integer(kind=kint), intent(inout):: Marker(*)
  -    integer(kind=kint), intent(out):: Rchset(*)
  -    integer(kind=kint), intent(out):: Nbrhd(*)
  +    integer(kind=kint), intent(inout):: Marker(:)
  +    integer(kind=kint), intent(out):: Rchset(:)
  +    integer(kind=kint), intent(out):: Nbrhd(:)
       !------
       integer(kind=kint):: i
       integer(kind=kint):: istrt
  
positive.code:     implicit none
      !------
      integer(kind=kint), intent(in):: Neqns
      integer(kind=kint), intent(in):: Xadj(*)
      integer(kind=kint), intent(in):: Adjncy(*)
      integer(kind=kint), intent(in):: Invp(*)
      integer(kind=kint), intent(in):: Iperm(*)
      integer(kind=kint), intent(out):: Parent(*)
      integer(kind=kint), intent(out):: Ancstr(*)
      !------
      integer(kind=kint):: i
      integer(kind=kint):: ip
  
negative.code:     !------
      integer(kind=kint), intent(in):: Neqns
      integer(kind=kint), intent(in):: Nstop
      integer(kind=kint), intent(in):: Xlnzr(:)
      integer(kind=kint), intent(in):: Colno(:)
      integer(kind=kint), intent(inout):: Indx(:)
      real(kind=kreal), intent(inout):: Diag(6,*)
      real(kind=kreal), intent(inout):: Dsln(9,*)
      real(kind=kreal), intent(inout):: Temp(Neqns,9)
  