anchor.diff:      integer, intent(in):: Ic
       integer, intent(in):: Xlnzr(*)
       integer, intent(in):: Colno(*)
  -    integer, intent(out):: Indx(*)
  -    real(kind=8), intent(out):: Temp(*)
  -    real(kind=8), intent(out):: Zln(*)
  +    integer, intent(inout):: Indx(*)
  +    real(kind=8), intent(inout):: Temp(*)
  +    real(kind=8), intent(inout):: Zln(*)
       !------
       integer:: j
       integer:: jc
  
positive.code:     integer, intent(in):: Colno(*)
      real(kind=8), intent(in):: Aij(9)
      integer, intent(out):: Ir
      real(kind=8), intent(out):: Zln(9,*)
      real(kind=8), intent(out):: Diag(6,*)
      real(kind=8), intent(out):: Dsln(9,*)
      !------
      integer:: i0
      integer:: ii
  
negative.code:     real(kind=8), intent(in):: Zln(4,*)
      real(kind=8), intent(in):: Diag(3,*)
      real(kind=8), intent(in):: Dsln(4,*)
      real(kind=8), intent(inout):: B(2,*)
      real(kind=8), intent(out):: Wk(2,*)
      !------
      integer:: i
  