is_square Interface

public interface is_square

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


Module Procedures

private pure function is_square_rsp(A) result(res)

Arguments

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

Return Value logical

private pure function is_square_rdp(A) result(res)

Arguments

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

Return Value logical

private pure function is_square_csp(A) result(res)

Arguments

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

Return Value logical

private pure function is_square_cdp(A) result(res)

Arguments

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

Return Value logical

private pure function is_square_iint8(A) result(res)

Arguments

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

Return Value logical

private pure function is_square_iint16(A) result(res)

Arguments

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

Return Value logical

private pure function is_square_iint32(A) result(res)

Arguments

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

Return Value logical

private pure function is_square_iint64(A) result(res)

Arguments

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

Return Value logical