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 @param[in] indices array of size 6 containing a set of indices indexing an LMat entry @param[in] ct integer between 1 and 3 labeling a position in the index set @return t_dir true if the two indices at the position ct (i.e. ct and ct+step in indices) are the same

Arguments

Return Value logical

    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