draw_PC_FullyWeightedParticles_t

private subroutine draw_PC_FullyWeightedParticles_t(this, nI, ilutI, i_sg, elecs, srcs, p)

Type	Intent		Name
class(PC_FullyWeightedParticles_t),	intent(in)	::	this
integer,	intent(in)	::	nI(nEl)	The determinant in nI-format and the supergroup index
integer(kind=n_int),	intent(in)	::	ilutI(0:nIfD)	The determinant in bitmask format
integer,	intent(in)	::	i_sg	The determinant in nI-format and the supergroup index
integer,	intent(out)	::	elecs(2)	The chosen particles $I, J$ and their index in `nI`. It is guaranteed that `scrs(1) < srcs(2)`.
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.