back_spawn_excit_gen Module

Uses

Contents

Functions

calc_pgen_back_spawn_ueg_new calc_pgen_back_spawn_hubbard calc_pgen_back_spawn_ueg calc_pgen_back_spawn

Subroutines

gen_excit_back_spawn_ueg_new gen_double_back_spawn_ueg_new gen_excit_back_spawn_hubbard gen_double_back_spawn_hubbard gen_excit_back_spawn_ueg gen_double_back_spawn_ueg gen_excit_back_spawn gen_single_back_spawn gen_double_back_spawn

Functions

public function calc_pgen_back_spawn_ueg_new(nI, ilutI, ex, ic, part_type) result(pgen)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	nI(nel)
integer(kind=n_int),	intent(in)			::	ilutI(0:niftot)
integer,	intent(in)			::	ex(2,2)
integer,	intent(in)			::	ic
integer,	intent(in)			::	part_type

Return Value real(kind=dp)

public function calc_pgen_back_spawn_hubbard(nI, ilutI, ex, ic, part_type) result(pgen)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	nI(nel)
integer(kind=n_int),	intent(in)			::	ilutI(0:niftot)
integer,	intent(in)			::	ex(2,2)
integer,	intent(in)			::	ic
integer,	intent(in)			::	part_type

Return Value real(kind=dp)

public function calc_pgen_back_spawn_ueg(ilutI, ex, ic, part_type) result(pgen)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=n_int),	intent(in)			::	ilutI(0:niftot)
integer,	intent(in)			::	ex(2,2)
integer,	intent(in)			::	ic
integer,	intent(in)			::	part_type

Return Value real(kind=dp)

public function calc_pgen_back_spawn(nI, ilutI, ex, ic, part_type) result(pgen)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	nI(nel)
integer(kind=n_int),	intent(in)			::	ilutI(0:niftot)
integer,	intent(in)			::	ex(2,2)
integer,	intent(in)			::	ic
integer,	intent(in)			::	part_type

Return Value real(kind=dp)

Subroutines

public subroutine gen_excit_back_spawn_ueg_new(nI, ilutI, nJ, ilutJ, exFlag, ic, ExcitMat, tParity, pgen, HElGen, store, part_type)

Arguments

Type	Intent	Optional	Attributes		Name
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)			::	ExcitMat(2,maxExcit)
logical,	intent(out)			::	tParity
real(kind=dp),	intent(out)			::	pgen
real(kind=dp),	intent(out)			::	HElGen
type(excit_gen_store_type),	intent(inout),		target	::	store
integer,	intent(in),	optional		::	part_type

private subroutine gen_double_back_spawn_ueg_new(nI, ilutI, part_type, nJ, ilutJ, tPar, ex, pgen)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	nI(nel)
integer(kind=n_int),	intent(in)			::	ilutI(0:niftot)
integer,	intent(in)			::	part_type
integer,	intent(out)			::	nJ(nel)
integer(kind=n_int),	intent(out)			::	ilutJ(0:niftot)
logical,	intent(out)			::	tPar
integer,	intent(out)			::	ex(2,maxExcit)
real(kind=dp),	intent(out)			::	pgen

public subroutine gen_excit_back_spawn_hubbard(nI, ilutI, nJ, ilutJ, exFlag, ic, ExcitMat, tParity, pgen, HElGen, store, part_type)

Arguments

Type	Intent	Optional	Attributes		Name
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)			::	ExcitMat(2,maxExcit)
logical,	intent(out)			::	tParity
real(kind=dp),	intent(out)			::	pgen
real(kind=dp),	intent(out)			::	HElGen
type(excit_gen_store_type),	intent(inout),		target	::	store
integer,	intent(in),	optional		::	part_type

private subroutine gen_double_back_spawn_hubbard(nI, ilutI, nJ, ilutJ, tParity, ExcitMat, pgen, part_type)

Arguments

Type	Intent	Optional	Attributes		Name
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)
logical,	intent(out)			::	tParity
integer,	intent(out)			::	ExcitMat(2,maxExcit)
real(kind=dp),	intent(out)			::	pgen
integer,		optional		::	part_type

public subroutine gen_excit_back_spawn_ueg(nI, ilutI, nJ, ilutJ, exFlag, ic, ExcitMat, tParity, pgen, HElGen, store, part_type)

Arguments

Type	Intent	Optional	Attributes		Name
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)			::	ExcitMat(2,maxExcit)
logical,	intent(out)			::	tParity
real(kind=dp),	intent(out)			::	pgen
real(kind=dp),	intent(out)			::	HElGen
type(excit_gen_store_type),	intent(inout),		target	::	store
integer,	intent(in),	optional		::	part_type

private subroutine gen_double_back_spawn_ueg(nI, ilutI, nJ, ilutJ, tParity, ExcitMat, pgen, part_type)

Arguments

Type	Intent	Optional	Attributes		Name
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)
logical,	intent(out)			::	tParity
integer,	intent(out)			::	ExcitMat(2,maxExcit)
real(kind=dp),	intent(out)			::	pgen
integer,		optional		::	part_type

public subroutine gen_excit_back_spawn(nI, ilutI, nJ, ilutJ, exFlag, ic, ExcitMat, tParity, pgen, HElGen, store, part_type)

Arguments

Type	Intent	Optional	Attributes		Name
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)			::	ExcitMat(2,maxExcit)
logical,	intent(out)			::	tParity
real(kind=dp),	intent(out)			::	pgen
real(kind=dp),	intent(out)			::	HElGen
type(excit_gen_store_type),	intent(inout),		target	::	store
integer,	intent(in),	optional		::	part_type

private subroutine gen_single_back_spawn(nI, ilutI, part_type, nJ, ilutJ, ex, tPar, pgen)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	nI(nel)
integer(kind=n_int),	intent(in)			::	ilutI(0:niftot)
integer,	intent(in)			::	part_type
integer,	intent(out)			::	nJ(nel)
integer(kind=n_int),	intent(out)			::	ilutJ(0:niftot)
integer,	intent(out)			::	ex(2,maxExcit)
logical,	intent(out)			::	tPar
real(kind=dp),	intent(out)			::	pgen

private subroutine gen_double_back_spawn(nI, ilutI, part_type, nJ, ilutJ, ex, tpar, pgen)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	nI(nel)
integer(kind=n_int),	intent(in)			::	ilutI(0:NIfTot)
integer,	intent(in)			::	part_type
integer,	intent(out)			::	nJ(nel)
integer(kind=n_int),	intent(out)			::	ilutJ(0:NIfTot)
integer,	intent(out)			::	ex(2,maxExcit)
logical,	intent(out)			::	tpar
real(kind=dp),	intent(out)			::	pgen