is_direct Function

private pure function is_direct(one, two) result(t_dir)

For two positions of indices in a 6-index set, return if these are a direct pair for which the LMat entry is symmetric under exchange of the values

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: one
integer, intent(in) :: two

Return Value logical


Source Code

    pure function is_direct(one, two) result(t_dir)
        integer, intent(in) :: one, two
        logical :: t_dir

        t_dir = (one + step == two)
    end function is_direct