GUGABase_t Derived Type

type, public, abstract, extends(Finalizable_t) :: GUGABase_t

Type-Bound Procedures

procedure(BoundFinalize_t), public, deferred :: finalize

subroutine BoundFinalize_t(this) Prototype

Arguments

Type	Intent	Optional	Attributes		Name
class(Finalizable_t),	intent(inout)			::	this

procedure(PickOrbitals_t), public, deferred :: pickOrbitals_single

subroutine PickOrbitals_t(this, nI, ilut, csf_i, excitInfo, pgen) Prototype

Arguments

Type	Intent	Optional	Attributes		Name
class(GUGABase_t),	intent(in)			::	this
integer,	intent(in)			::	nI(nel)
integer(kind=n_int),	intent(in)			::	ilut(0:GugaBits%len_tot)
type(CSF_Info_t),	intent(in)			::	csf_i
type(ExcitationInformation_t),	intent(out)			::	excitInfo
real(kind=dp),	intent(out)			::	pgen

procedure(PickOrbitals_t), public, deferred :: pickOrbitals_double

subroutine PickOrbitals_t(this, nI, ilut, csf_i, excitInfo, pgen) Prototype

Arguments

Type	Intent	Optional	Attributes		Name
class(GUGABase_t),	intent(in)			::	this
integer,	intent(in)			::	nI(nel)
integer(kind=n_int),	intent(in)			::	ilut(0:GugaBits%len_tot)
type(CSF_Info_t),	intent(in)			::	csf_i
type(ExcitationInformation_t),	intent(out)			::	excitInfo
real(kind=dp),	intent(out)			::	pgen

procedure(CalcOrbitalPgenContr_t), public, deferred :: calc_orbital_pgen_contr_start

subroutine CalcOrbitalPgenContr_t(this, nI, ilut, csf_i, occ_orbs, orb_a, orb_pgen) Prototype

Arguments

Type	Intent	Optional	Attributes		Name
class(GUGABase_t),	intent(in)			::	this
integer,	intent(in)			::	nI(nEl)
integer(kind=n_int),	intent(in)			::	ilut(0:GugaBits%len_tot)
type(CSF_Info_t),	intent(in)			::	csf_i
integer,	intent(in)			::	occ_orbs(2)
integer,	intent(in)			::	orb_a
real(kind=dp),	intent(out)			::	orb_pgen

procedure(CalcOrbitalPgenContr_t), public, deferred :: calc_orbital_pgen_contr_end

subroutine CalcOrbitalPgenContr_t(this, nI, ilut, csf_i, occ_orbs, orb_a, orb_pgen) Prototype

Arguments

Type	Intent	Optional	Attributes		Name
class(GUGABase_t),	intent(in)			::	this
integer,	intent(in)			::	nI(nEl)
integer(kind=n_int),	intent(in)			::	ilut(0:GugaBits%len_tot)
type(CSF_Info_t),	intent(in)			::	csf_i
integer,	intent(in)			::	occ_orbs(2)
integer,	intent(in)			::	orb_a
real(kind=dp),	intent(out)			::	orb_pgen

procedure(calc_orbital_pgen_contr_t), public, deferred :: calc_orbital_pgen_contr

subroutine calc_orbital_pgen_contr_t(this, nI, ilut, csf_i, occ_orbs, above_cpt, below_cpt) Prototype

Arguments

Type	Intent	Optional	Attributes		Name
class(GUGABase_t),	intent(in)			::	this
integer,	intent(in)			::	nI(nEl)
integer(kind=n_int),	intent(in)			::	ilut(0:GugaBits%len_tot)
type(CSF_Info_t),	intent(in)			::	csf_i
integer,	intent(in)			::	occ_orbs(2)
real(kind=dp),	intent(out)			::	above_cpt
real(kind=dp),	intent(out)			::	below_cpt

procedure(CalcPgen_t), public, deferred :: calc_pgen

function CalcPgen_t(this, nI, ilutI, csf_i, excitInfo) result(pgen) Prototype

Arguments

Type	Intent	Optional	Attributes		Name
class(GUGABase_t),	intent(in)			::	this
integer,	intent(in)			::	nI(nel)
integer(kind=n_int),	intent(in)			::	ilutI(0:GugaBits%len_tot)
type(CSF_Info_t),	intent(in)			::	csf_i
type(ExcitationInformation_t),	intent(in)			::	excitInfo

Return Value real(kind=dp)