is_symmetric Function

public function is_symmetric(A) result(is_sym)

Arguments

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

Return Value logical


Called by

proc~~is_symmetric~~CalledByGraph proc~is_symmetric is_symmetric proc~is_spd is_SPD proc~is_spd->proc~is_symmetric

Source Code

    FUNCTION is_symmetric(A) RESULT(is_sym)
        REAL(dp), DIMENSION(:, :), INTENT(IN) :: A
        LOGICAL :: is_sym

        is_sym = ALL(A == TRANSPOSE(A))

    END FUNCTION is_symmetric