nI_invariant_ladder_op_exc_Excite_1_t Function

private pure function nI_invariant_ladder_op_exc_Excite_1_t(exc) result(res)

Evaluates $< D_i | S_+S- | a^\dagger_A a_I D_i > = 0$

Arguments

Type	Intent	Optional	Attributes		Name
type(Excite_1_t),	intent(in)			::	exc

Return Value real(kind=dp)

The matrix element is always exactly zero

Contents