is_triangular Interface

public interface is_triangular

Checks if a matrix (rank-2 array) is triangular (Specification)


Module Procedures

private function is_triangular_rsp(A, uplo) result(res)

Arguments

Type IntentOptional Attributes Name
real(kind=sp), intent(in) :: A(:,:)
character(len=1), intent(in) :: uplo

Return Value logical

private function is_triangular_rdp(A, uplo) result(res)

Arguments

Type IntentOptional Attributes Name
real(kind=dp), intent(in) :: A(:,:)
character(len=1), intent(in) :: uplo

Return Value logical

private function is_triangular_csp(A, uplo) result(res)

Arguments

Type IntentOptional Attributes Name
complex(kind=sp), intent(in) :: A(:,:)
character(len=1), intent(in) :: uplo

Return Value logical

private function is_triangular_cdp(A, uplo) result(res)

Arguments

Type IntentOptional Attributes Name
complex(kind=dp), intent(in) :: A(:,:)
character(len=1), intent(in) :: uplo

Return Value logical

private function is_triangular_iint8(A, uplo) result(res)

Arguments

Type IntentOptional Attributes Name
integer(kind=int8), intent(in) :: A(:,:)
character(len=1), intent(in) :: uplo

Return Value logical

private function is_triangular_iint16(A, uplo) result(res)

Arguments

Type IntentOptional Attributes Name
integer(kind=int16), intent(in) :: A(:,:)
character(len=1), intent(in) :: uplo

Return Value logical

private function is_triangular_iint32(A, uplo) result(res)

Arguments

Type IntentOptional Attributes Name
integer(kind=int32), intent(in) :: A(:,:)
character(len=1), intent(in) :: uplo

Return Value logical

private function is_triangular_iint64(A, uplo) result(res)

Arguments

Type IntentOptional Attributes Name
integer(kind=int64), intent(in) :: A(:,:)
character(len=1), intent(in) :: uplo

Return Value logical