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 @param[in] one, two integers between 1 and 6 @return t_dir true if the two integers correspond to positions that are direct, i.e. 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


Contents

Source Code

is_direct

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