is_diagonal Interface

public interface is_diagonal

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


Module Procedures

private pure function is_diagonal_rsp(A) result(res)

Arguments

Type IntentOptional Attributes Name
real(kind=sp), intent(in) :: A(:,:)

Return Value logical

private pure function is_diagonal_rdp(A) result(res)

Arguments

Type IntentOptional Attributes Name
real(kind=dp), intent(in) :: A(:,:)

Return Value logical

private pure function is_diagonal_csp(A) result(res)

Arguments

Type IntentOptional Attributes Name
complex(kind=sp), intent(in) :: A(:,:)

Return Value logical

private pure function is_diagonal_cdp(A) result(res)

Arguments

Type IntentOptional Attributes Name
complex(kind=dp), intent(in) :: A(:,:)

Return Value logical

private pure function is_diagonal_iint8(A) result(res)

Arguments

Type IntentOptional Attributes Name
integer(kind=int8), intent(in) :: A(:,:)

Return Value logical

private pure function is_diagonal_iint16(A) result(res)

Arguments

Type IntentOptional Attributes Name
integer(kind=int16), intent(in) :: A(:,:)

Return Value logical

private pure function is_diagonal_iint32(A) result(res)

Arguments

Type IntentOptional Attributes Name
integer(kind=int32), intent(in) :: A(:,:)

Return Value logical

private pure function is_diagonal_iint64(A) result(res)

Arguments

Type IntentOptional Attributes Name
integer(kind=int64), intent(in) :: A(:,:)

Return Value logical