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(3,*)
       real(kind=kreal), intent(inout):: Dsln(4,*)
       real(kind=kreal), intent(out):: Temp(4,*)
  
positive.code:     implicit none
      !------
      integer(kind=kint), intent(in):: N
      integer(kind=kint), intent(out):: Indx(*)
      real(kind=kreal), intent(inout):: Diag(*)
      real(kind=kreal), intent(inout):: Dsln(*)
      real(kind=kreal), intent(out):: Temp(*)
      !------
      integer(kind=kint):: i
      integer(kind=kint):: j
  
negative.code:     integer(kind=kint), intent(in):: Ndeg
      integer(kind=kint), intent(in):: Ndegl
      integer(kind=kint), intent(in):: Nn
      integer(kind=kint), intent(out):: Indx(:)
      real(kind=kreal), intent(inout):: Diag(Ndegl,*)
      real(kind=kreal), intent(inout):: Dsln(Ndeg,Ndeg,*)
      real(kind=kreal), intent(out):: T(Ndeg,Ndeg)
  