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