get_pgen_PC_FullyWeightedParticles_t Function

private pure function get_pgen_PC_FullyWeightedParticles_t(this, nI, csf_I, i_sg, i, j) result(p)

Calculates $p(\{I, J\}) \Big |_{D_i}$

This is the probability of drawing two particles from a given determinant $D_i$ regardless of order.

Note that the unordered probability is given by the ordered probability as: $$p(\{I, J\}) \Big |_{D_i} = p((I, J)) \Big |_{D_i} + p((J, I)) \Big |_{D_i} \quad.$$ In addition we have $$p((I, J)) \Big |_{D_i} \neq p((J, I)) \Big |_{D_i}$$ so we have to actually calculate the probability of drawing two given particles in different order.

Type Bound

PC_FullyWeightedParticles_t

Arguments

Type	Intent	Optional	Attributes		Name
class(PC_FullyWeightedParticles_t),	intent(in)			::	this
integer,	intent(in)			::	nI(nEl)	The determinant in nI-format and the prop_vec index
type(CSF_Info_t),	intent(in)			::	csf_I
integer,	intent(in)			::	i_sg	The determinant in nI-format and the prop_vec index
integer,	intent(in)			::	i	The particles in spatial format
integer,	intent(in)			::	j	The particles in spatial format

Return Value real(kind=dp)