hphf_integrals Module

Uses

Contents

Interfaces

hphf_off_diag_helement

Functions

hphf_spawn_sign hphf_off_diag_helement_spawn hphf_off_diag_helement_norm hphf_off_diag_helement_opt hphf_off_diag_special_case hphf_diag_helement hphf_sign

Interfaces

public interface hphf_off_diag_helement

public function hphf_off_diag_helement_norm(nI, nJ, iLutnI, iLutnJ) result(hel)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	nI(nel)
integer,	intent(in)			::	nJ(nel)
integer(kind=n_int),	intent(in)			::	iLutnI(0:NIfTot)
integer(kind=n_int),	intent(in)			::	iLutnJ(0:NIfTot)

Return Value real(kind=dp)

public function hphf_off_diag_helement_spawn(nI, nJ, iLutI, iLutJ, ic, ex, tParity, HElGen) result(hel)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	nI(nel)
integer,	intent(in)			::	nJ(nel)
integer(kind=n_int),	intent(in)			::	iLutI(0:NIfTot)
integer(kind=n_int),	intent(in)			::	iLutJ(0:NIfTot)
integer,	intent(in)			::	ic
integer,	intent(in)			::	ex(2,ic)
logical,	intent(in)			::	tParity
real(kind=dp),	intent(in)			::	HElGen

Return Value real(kind=dp)

Functions

public function hphf_spawn_sign(nI, nJ, iLutI, iLutJ, ic, ex, tParity, HElGen) result(hel)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	nI(nel)
integer,	intent(in)			::	nJ(nel)
integer(kind=n_int),	intent(in)			::	iLutI(0:NIfTot)
integer(kind=n_int),	intent(in)			::	iLutJ(0:NIfTot)
integer,	intent(in)			::	ic
integer,	intent(in)			::	ex(2,ic)
logical,	intent(in)			::	tParity
real(kind=dp),	intent(in)			::	HElGen

Return Value real(kind=dp)

public function hphf_off_diag_helement_spawn(nI, nJ, iLutI, iLutJ, ic, ex, tParity, HElGen) result(hel)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	nI(nel)
integer,	intent(in)			::	nJ(nel)
integer(kind=n_int),	intent(in)			::	iLutI(0:NIfTot)
integer(kind=n_int),	intent(in)			::	iLutJ(0:NIfTot)
integer,	intent(in)			::	ic
integer,	intent(in)			::	ex(2,ic)
logical,	intent(in)			::	tParity
real(kind=dp),	intent(in)			::	HElGen

Return Value real(kind=dp)

public function hphf_off_diag_helement_norm(nI, nJ, iLutnI, iLutnJ) result(hel)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	nI(nel)
integer,	intent(in)			::	nJ(nel)
integer(kind=n_int),	intent(in)			::	iLutnI(0:NIfTot)
integer(kind=n_int),	intent(in)			::	iLutnJ(0:NIfTot)

Return Value real(kind=dp)

public function hphf_off_diag_helement_opt(nI, iLutnI, iLutnJ, IC, CS_I, CS_J) result(hel)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	nI(nel)
integer(kind=n_int),	intent(in)			::	iLutnI(0:NIfTot)
integer(kind=n_int),	intent(in)			::	iLutnJ(0:NIfTot)
integer,	intent(in)			::	IC
logical,	intent(in)			::	CS_I
logical,	intent(in)			::	CS_J

Return Value real(kind=dp)

public function hphf_off_diag_special_case(nI2, iLutnI2, iLutnJ, ExcitLevel, OpenOrbsI) result(hel)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	nI2(nel)
integer(kind=n_int),	intent(in)			::	iLutnI2(0:NIfTot)
integer(kind=n_int),	intent(in)			::	iLutnJ(0:NIfTot)
integer,	intent(in)			::	ExcitLevel
integer,	intent(in)			::	OpenOrbsI

Return Value real(kind=dp)

public function hphf_diag_helement(nI, iLutnI) result(hel)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	nI(nel)
integer(kind=n_int),	intent(in)			::	iLutnI(0:NIfTot)

Return Value real(kind=dp)

public pure function hphf_sign(ilut) result(sgn)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=n_int),	intent(in)			::	ilut(0:NIfTot)

Return Value integer