is_square_matrix Function

public function is_square_matrix(A) result(is_square)

Arguments

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

Return Value logical


Source Code

    FUNCTION is_square_matrix(A) RESULT(is_square)
        REAL(dp), DIMENSION(:, :), INTENT(IN) :: A
        LOGICAL :: is_square

        is_square = (SIZE(A, 1) == SIZE(A, 2))

    END FUNCTION is_square_matrix