draw_PC_WeightedParticles_t

private subroutine draw_PC_WeightedParticles_t(this, nI, ilutI, csf_i, i_sg, srcs, p)

Type	Intent		Name
class(PC_WeightedParticles_t),	intent(in)	::	this
integer,	intent(in)	::	nI(nEl)	The determinant in nI-format and the prop_vec index
integer(kind=n_int),	intent(in)	::	ilutI(0:nIfD)	The determinant in bitmask format
type(CSF_Info_t),	intent(in)	::	csf_i
integer,	intent(in)	::	i_sg	The prop_vec index
integer,	intent(out)	::	srcs(2)	The chosen particles $I, J$ and their index in `nI`. It is guaranteed that `scrs(1) <= srcs(2)`.
real(kind=dp),	intent(out)	::	p	The probability of drawing $p(\{I, J\}) \Big \|_{D_i}$ . This is the probability of drawing two particles from a given determinant $D_i$ regardless of order.