Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
real(kind=dp), | intent(in), | DIMENSION(:, :) | :: | A |
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