is_orthogonal Function

public function is_orthogonal(A) result(is_orth)

Arguments

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

Return Value logical


Calls

proc~~is_orthogonal~~CallsGraph proc~is_orthogonal is_orthogonal proc~identity_n Identity_n proc~is_orthogonal->proc~identity_n

Source Code

    FUNCTION is_orthogonal(A) RESULT(is_orth)
        REAL(dp), DIMENSION(:, :), INTENT(IN) :: A
        LOGICAL :: is_orth

        is_orth = ALL(ABS(MATMUL(A, TRANSPOSE(A)) - Identity_n(SIZE(A, 1))) < epsi_test)

    END FUNCTION is_orthogonal