anchor.diff:      !------
       integer(kind=kint), intent(in):: Ke
       integer(kind=kint), intent(in):: Ks
  -    integer(kind=kint), intent(in):: Colno(*)
  -    real(kind=kreal), intent(in):: Zln(*)
  -    real(kind=kreal), intent(in):: B(*)
  +    integer(kind=kint), intent(in):: Colno(:)
  +    real(kind=kreal), intent(in):: Zln(:)
  +    real(kind=kreal), intent(in):: B(:)
       !------
       integer(kind=kint):: j
       integer(kind=kint):: jj
  
positive.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(in):: Iperm(*)
      real(kind=kreal), intent(in):: Zln(*)
      real(kind=kreal), intent(in):: Diag(*)
      real(kind=kreal), intent(in):: Dsln(*)
      real(kind=kreal), intent(inout):: B(*)
      real(kind=kreal), intent(out):: Wk(*)
      !------
      integer(kind=kint):: i
      integer(kind=kint):: j
  
negative.code:     !------
      integer(kind=kint), intent(in):: Ke
      integer(kind=kint), intent(in):: Ks
      integer(kind=kint), intent(in):: Colno(:)
      real(kind=kreal), intent(in):: Zln(9,*)
      real(kind=kreal), intent(in):: B(3,*)
      real(kind=kreal), intent(inout):: Bi(3)
  