anchor.diff:      implicit none
       !------
       integer, intent(out):: Ir
  -    real(kind=8), intent(out):: Dsln(21)
  +    real(kind=8), intent(inout):: Dsln(21)
       !------
       real(kind=8):: t(5)
   
  
positive.code:     integer, intent(in):: Ndeg
      integer, intent(in):: Xlnzr(*)
      integer, intent(in):: Colno(*)
      integer, intent(out):: Indx(*)
      real(kind=8), intent(out):: S(Ndeg,Ndeg)
      real(kind=8), intent(out):: Temp(Ndeg,Ndeg,*)
      real(kind=8), intent(out):: Zln(Ndeg,Ndeg,*)
      !------
      integer:: Ic
      integer:: j
  
negative.code:     !------
      integer, intent(in):: N
      integer, intent(out):: Indx(*)
      real(kind=8), intent(inout):: Diag(3,*)
      real(kind=8), intent(inout):: Dsln(4,*)
      real(kind=8), intent(out):: Temp(4,*)
      !------
      integer:: i
  