fuse_DistinctDouble_t Function

private elemental function fuse_DistinctDouble_t(this) result(res)

Fuse a Distinct Double excitation

This means that a composite index for [typ, fused_ijkl_index] is created.

Note

This function does not preserve lexicographical ordering. I.e. if (i_1, j_1, k_1, l_1) <= (i_2, j_2, k_2, l_2) then the fused index is not necessarily <=.

Type Bound

DistinctDouble_t

Arguments

Type IntentOptional Attributes Name
class(DistinctDouble_t), intent(in) :: this

Return Value integer(kind=int64)