GAS_doubles_gen_exc Subroutine

private subroutine GAS_doubles_gen_exc(this, nI, ilutI, nJ, ilutJ, exFlag, ic, ex, tParity, pGen, hel, store, part_type)

@brief Generate a single excitation under GAS constraints.

Type Bound

GAS_doubles_heat_bath_ExcGenerator_t

Arguments

Type	Intent	Optional	Attributes		Name
class(GAS_doubles_heat_bath_ExcGenerator_t),	intent(inout)			::	this
integer,	intent(in)			::	nI(nEl)
integer(kind=n_int),	intent(in)			::	ilutI(0:NIfTot)
integer,	intent(out)			::	nJ(nEl)
integer(kind=n_int),	intent(out)			::	ilutJ(0:NifTot)
integer,	intent(in)			::	exFlag
integer,	intent(out)			::	ic
integer,	intent(out)			::	ex(2,maxExcit)
logical,	intent(out)			::	tParity
real(kind=dp),	intent(out)			::	pGen
real(kind=dp),	intent(out)			::	hel
type(excit_gen_store_type),	intent(inout),		target	::	store
integer,	intent(in),	optional		::	part_type

Contents