anchor.diff:    end subroutine V3PROD
   
     !======================================================================!
  -  !> @brief VLCPY
  -  !======================================================================!
  -  subroutine VLCPY(A,B,N)
  -    implicit none
  -    !------
  -    integer(kind=kint), intent(in):: N
  -    real(kind=kreal), intent(in):: B(N,N)
  -    real(kind=kreal), intent(out):: A(N,N)
  -    !------
  -    integer(kind=kint):: i
  -
  -    do i = 1, N
  -      A(1:N,i) = B(i,1:N)
  -    enddo
  -  end subroutine VLCPY
  -
  -  !======================================================================!
  -  !> @brief VCOPY
  -  !======================================================================!
  -  subroutine VCOPY(A,C,N)
  -    implicit none
  -    !------
  -    integer(kind=kint), intent(in):: N
  -    real(kind=kreal), intent(in):: A(N)
  -    real(kind=kreal), intent(out):: C(N)
  -    !------
  -    C = A
  -  end subroutine VCOPY
  -
  -  !======================================================================!
  -  !> @brief VPROD
  -  !======================================================================!
  -  subroutine VPROD(A,B,C,N)
  -    implicit none
  -    !------
  -    integer(kind=kint), intent(in):: N
  -    real(kind=kreal), intent(in):: A(N)
  -    real(kind=kreal), intent(in):: B(N)
  -    real(kind=kreal), intent(out):: C(N)
  -    !------
  -    C(1:N) = A(1:N)*B(1:N)
  -  end subroutine VPROD
  -
  -  !======================================================================!
     !> @brief VXPROD
     !======================================================================!
     subroutine VXPROD(Ndeg,Ndegl,Zln,Diag,Zz,N)
  
positive.code:       call INVXX(Zz(1,i),Zln(1,i),Diag(1,i),Ndeg)
      enddo
    end subroutine VXPROD
  end module HECMW_SOLVER_DIRECT
  
negative.code:   end subroutine S6UM3
  
    !======================================================================!
    !> @brief SXUM
    !======================================================================!
    subroutine SXUM(Ic,Xlnzr,Colno,Zln,Diag,Nch,Par,Temp,Indx,Ndeg,Ndegl,Zz,T)
  