Skip to main content

GetTriu

This subroutine returns the upper triangle part of an int vector.

Interface​

  MODULE PURE SUBROUTINE GetTriu(A, diagNo, lu)
    INTEGER(Int8| Int16 | Int32 | Int64) | REAL(Real32| Real64), INTENT(IN) :: A(:, :)
    INTEGER(I4B), OPTIONAL, INTENT(IN) :: diagNo
    !! diagonal number, default = 0
    REAL(REAL32), INTENT(OUT) :: lu(SIZE(A, 1), SIZE(A, 2))
  END SUBROUTINE GetTriu