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 IntentOptional 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