anchor.diff:      implicit none
       !------
       integer, intent(out):: Ir
  -    real(kind=8), intent(out):: Dsln(6)
  +    real(kind=8), intent(inout):: Dsln(6)
       !------
       real(kind=8):: t(2)
   
  
positive.code:     integer, intent(in):: Nstop
      integer, intent(in):: Xlnzr(*)
      integer, intent(in):: Colno(*)
      integer, intent(out):: Indx(*)
      real(kind=8), intent(out):: Diag(6,*)
      real(kind=8), intent(out):: Dsln(9,*)
      real(kind=8), intent(out):: Temp(Neqns,9)
      real(kind=8), intent(out):: Zln(9,*)
      !------
      integer:: ic
      integer:: j
  
negative.code:     integer, intent(in):: Parent(*)
      integer, intent(out):: Ir
      integer, intent(out):: Indx(*)
      integer, intent(inout):: Nch(*)
      real(kind=8), intent(inout):: Zln(9,*)
      real(kind=8), intent(inout):: Diag(6,*)
      real(kind=8), intent(out):: Temp(*)
      real(kind=8), intent(inout):: Dsln(9,*)
      !------
      integer:: ic
      integer:: l
  