SinglesPropVec_FullFull_t Derived Type

type, private, extends(PropVec_Weighted_t) :: SinglesPropVec_FullFull_t

Components

Type	Visibility	Attributes		Name		Initial
logical,	public		::	use_lookup	=	.false.	Use a lookup for the prop_vec index in global_det_data.
logical,	public		::	create_lookup	=	.false.	Create and manage! the prop_vec index lookup in global_det_data.

Type-Bound Procedures

procedure, public :: init => init_PropVec_Weighted_t

private subroutine init_PropVec_Weighted_t(this, weighting, indexer, use_lookup, create_lookup)

Arguments

Type	Intent	Optional	Attributes		Name
class(PropVec_Weighted_t),	intent(inout)			::	this
type(PropVec_PCHB_SinglesWeighting_t),	intent(in)			::	weighting
class(AlsoGUGA_PropertyIndexer_t),	intent(in)			::	indexer
logical,	intent(in)			::	use_lookup
logical,	intent(in)			::	create_lookup

procedure, public :: finalize => finalize_PropVec_Weighted_t

private subroutine finalize_PropVec_Weighted_t(this)

Arguments

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

procedure, public :: calc_pgen => calc_pgen_FullFull

private function calc_pgen_FullFull(this, nI, ilutI, csf_i, excitInfo) result(pgen)

Arguments

Type	Intent	Optional	Attributes		Name
class(SinglesPropVec_FullFull_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)

procedure, public :: pickOrbitals => pickOrbitals_FullFull

private subroutine pickOrbitals_FullFull(this, nI, ilut, csf_i, excitInfo, pgen)

Arguments

Type	Intent	Optional	Attributes		Name
class(SinglesPropVec_FullFull_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