anchor.diff:      implicit none
       !------
       integer(kind=kint), intent(in):: N
  -    integer(kind=kint), intent(out):: Indx(*)
  +    integer(kind=kint), intent(out):: Indx(:)
       real(kind=kreal), intent(inout):: Diag(6,*)
       real(kind=kreal), intent(inout):: Dsln(9,*)
       real(kind=kreal), intent(out):: Temp(9,*)
  
positive.code:     implicit none
      !------
      integer(kind=kint), intent(in):: Ic
      integer(kind=kint), intent(in):: Xlnzr(*)
      integer(kind=kint), intent(in):: Colno(*)
      integer(kind=kint), intent(inout):: Indx(*)
      real(kind=kreal), intent(inout):: Temp(*)
      real(kind=kreal), intent(inout):: Zln(*)
      !------
      integer(kind=kint):: j
      integer(kind=kint):: jc
  
negative.code:     !------
      integer(kind=kint), intent(in):: Izz
      integer(kind=kint), intent(in):: Neqns
      integer(kind=kint), intent(in):: Xadj(:)
      integer(kind=kint), intent(in):: Adjncy(:)
      integer(kind=kint), intent(in):: Parent(:)
      integer(kind=kint), intent(in):: Btree(2,*)
      integer(kind=kint), intent(out):: Irr
      integer(kind=kint), intent(inout):: Invp(:)
      integer(kind=kint), intent(inout):: Iperm(:)
      integer(kind=kint), intent(out):: Anc(:)
      integer(kind=kint), intent(out):: Adjt(:)
      !------
      integer(kind=kint):: i
      integer(kind=kint):: iy
  