is_repeated_pair Function

private pure function is_repeated_pair(indices, ct) result(t_dir)

For a set of 6 orbital indices, return whether the pair at a given position is repeated are the same

Arguments

Type IntentOptional Attributes Name
integer(kind=int64), intent(in) :: indices(num_inds)
integer, intent(in) :: ct

integer between 1 and 3 labeling a position in the index set

Return Value logical


Source Code

    pure function is_repeated_pair(indices, ct) result(t_dir)
        integer(int64), intent(in) :: indices(num_inds)
        integer, intent(in) :: ct
        logical :: t_dir

        t_dir = (indices(ct) == indices(ct + step))
    end function is_repeated_pair