hdiag_from_excit Module

Uses

Contents

Functions

get_hdiag_from_excit get_hdiag_from_sing_excit get_hdiag_from_doub_excit get_hdiag_bare_hphf

Subroutines

correct_hdiag_hphf

Functions

public function get_hdiag_from_excit(nI, nJ, iLutnJ, IC, ex, hel_old) result(hel)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	nI(nel)
integer,	intent(in)			::	nJ(nel)
integer(kind=n_int),	intent(in)			::	iLutnJ(0:NIfTot)
integer,	intent(in)			::	IC
integer,	intent(in)			::	ex(2,2)
real(kind=dp),	intent(in)			::	hel_old

Return Value real(kind=dp)

public function get_hdiag_from_sing_excit(nI, ex, hel_old) result(hel)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	nI(nel)
integer,	intent(in)			::	ex(2)
real(kind=dp),	intent(in)			::	hel_old

Return Value real(kind=dp)

public function get_hdiag_from_doub_excit(nI, ex, hel_old) result(hel)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	nI(nel)
integer,	intent(in)			::	ex(2,2)
real(kind=dp),	intent(in)			::	hel_old

Return Value real(kind=dp)

public function get_hdiag_bare_hphf(nI, iLutnI, hel_old) result(hel)

Arguments

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

Return Value real(kind=dp)

Subroutines

public subroutine correct_hdiag_hphf(nJ, iLutnJ, hel)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	nJ(nel)
integer(kind=n_int),	intent(in)			::	iLutnJ(0:NIfTot)
real(kind=dp),	intent(inout)			::	hel