hist Module

Uses

Contents

Functions

calc_s_squared calc_s_squared_multi calc_s_squared_multi_worker calc_s_squared_star ssquared_contrib

Subroutines

ilut_nifd_pointer_assign add_hist_spawn find_hist_coeff_explicit add_hist_energies init_hist_excit_tofrom clean_hist_excit_tofrom add_hist_excit_tofrom write_zero_hist_excit_tofrom

Functions

public function calc_s_squared(only_init) result(ssq)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(in)			::	only_init

Return Value real(kind=dp), (inum_runs)

public function calc_s_squared_multi() result(ssq)

Arguments

None

Return Value real(kind=dp), dimension(inum_runs)

public function calc_s_squared_multi_worker(max_per_proc, max_spawned) result(ssq)

Arguments

Type	Intent	Optional	Attributes		Name
integer				::	max_per_proc
integer				::	max_spawned

Return Value real(kind=dp), dimension(inum_runs)

public function calc_s_squared_star(only_init) result(ssq)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(in)			::	only_init

Return Value real(kind=dp), dimension(inum_runs)

public function ssquared_contrib(ilut, only_init_, n_opt, ilut_list_opt) result(ssq)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=n_int),	intent(in)			::	ilut(0:NIfTot)
logical,	intent(in),	optional		::	only_init_
integer,	intent(in),	optional		::	n_opt
integer(kind=n_int),	intent(in),	optional		::	ilut_list_opt(0:,:)

Return Value real(kind=dp)

Subroutines

public subroutine ilut_nifd_pointer_assign(ptr, ilut)

Arguments

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

public subroutine add_hist_spawn(ilut, sign, ExcitLevel, dProbFin)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=n_int),	intent(in)			::	ilut(0:NIfTot)
real(kind=dp),	intent(in)			::	sign(lenof_sign)
integer,	intent(in)			::	ExcitLevel
real(kind=dp),	intent(in)			::	dProbFin

public subroutine find_hist_coeff_explicit(ilut, ExcitLevel, PartInd, tSuccess)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=n_int),	intent(in)			::	ilut(0:NIfTot)
integer,	intent(in)			::	ExcitLevel
integer,	intent(out)			::	PartInd
logical,	intent(out)			::	tSuccess

public subroutine add_hist_energies(ilut, Sign, HDiag)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=n_int),	intent(in)			::	ilut(0:NIfTot)
real(kind=dp),	intent(in),		dimension(lenof_sign)	::	Sign
real(kind=dp),	intent(in)			::	HDiag

public subroutine init_hist_excit_tofrom()

Arguments

None

public subroutine clean_hist_excit_tofrom()

Arguments

None

public subroutine add_hist_excit_tofrom(ilutI, ilutJ, child)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=n_int),	intent(in)			::	ilutI(0:NIfTot)
integer(kind=n_int),	intent(in)			::	ilutJ(0:NIfTot)
real(kind=dp),	intent(in)			::	child(lenof_sign)

public subroutine write_zero_hist_excit_tofrom()

Arguments

None