fcimc_pointed_fns Module


Uses


Contents

Functions

Subroutines


Functions

public function attempt_create_trunc_spawn(DetCurr, iLutCurr, RealwSign, nJ, iLutnJ, prob, HElGen, ic, ex, tParity, walkExcitLevel, part_type, AvSignCurr, AvExPerWalker, RDMBiasFacCurr, precond_fac) result(child)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: DetCurr(nel)
integer(kind=n_int), intent(in) :: iLutCurr(0:NIfTot)
real(kind=dp), intent(in), dimension(lenof_sign) :: RealwSign
integer, intent(in) :: nJ(nel)
integer(kind=n_int), intent(inout) :: iLutnJ(0:niftot)
real(kind=dp), intent(inout) :: prob
real(kind=dp), intent(inout) :: HElGen
integer, intent(in) :: ic
integer, intent(in) :: ex(2,ic)
logical, intent(in) :: tParity
integer, intent(in) :: walkExcitLevel
integer, intent(in) :: part_type
real(kind=dp), intent(in), dimension(lenof_sign) :: AvSignCurr
real(kind=dp), intent(in) :: AvExPerWalker
real(kind=dp), intent(out) :: RDMBiasFacCurr
real(kind=dp), intent(in) :: precond_fac

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

public function att_create_trunc_spawn_enc(DetCurr, iLutCurr, RealwSign, nJ, iLutnJ, prob, HElGen, ic, ex, tParity, walkExcitLevel, part_type, AvSignCurr, AvExPerWalker, RDMBiasFacCurr, precond_fac) result(child)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: DetCurr(nel)
integer(kind=n_int), intent(in) :: iLutCurr(0:NIfTot)
real(kind=dp), intent(in), dimension(lenof_sign) :: RealwSign
integer, intent(in) :: nJ(nel)
integer(kind=n_int), intent(inout) :: iLutnJ(0:niftot)
real(kind=dp), intent(inout) :: prob
real(kind=dp), intent(inout) :: HElGen
integer, intent(in) :: ic
integer, intent(in) :: ex(2,ic)
logical, intent(in) :: tParity
integer, intent(in) :: walkExcitLevel
integer, intent(in) :: part_type
real(kind=dp), intent(in), dimension(lenof_sign) :: AvSignCurr
real(kind=dp), intent(in) :: AvExPerWalker
real(kind=dp), intent(out) :: RDMBiasFacCurr
real(kind=dp), intent(in) :: precond_fac

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

public function attempt_create_normal(DetCurr, iLutCurr, RealwSign, nJ, iLutnJ, prob, HElGen, ic, ex, tParity, walkExcitLevel, part_type, AvSignCurr, AvExPerWalker, RDMBiasFacCurr, precond_fac) result(child)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: DetCurr(nel)
integer(kind=n_int), intent(in) :: iLutCurr(0:NIfTot)
real(kind=dp), intent(in), dimension(lenof_sign) :: RealwSign
integer, intent(in) :: nJ(nel)
integer(kind=n_int), intent(inout) :: iLutnJ(0:niftot)
real(kind=dp), intent(inout) :: prob
real(kind=dp), intent(inout) :: HElGen
integer, intent(in) :: ic
integer, intent(in) :: ex(2,ic)
logical, intent(in) :: tParity
integer, intent(in) :: walkExcitLevel
integer, intent(in) :: part_type
real(kind=dp), intent(in), dimension(lenof_sign) :: AvSignCurr
real(kind=dp), intent(in) :: AvExPerWalker
real(kind=dp), intent(out) :: RDMBiasFacCurr
real(kind=dp), intent(in) :: precond_fac

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

public function attempt_die_normal(DetCurr, Kii, RealwSign, WalkExcitLevel, DetPosition) result(ndie)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: DetCurr(nel)
real(kind=dp), intent(in) :: Kii
real(kind=dp), intent(in), dimension(lenof_sign) :: RealwSign
integer, intent(in) :: WalkExcitLevel
integer, intent(in), optional :: DetPosition

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

public function attempt_die_precond(DetCurr, Kii, RealwSign, WalkExcitLevel, DetPos) result(ndie)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: DetCurr(nel)
real(kind=dp), intent(in) :: Kii
real(kind=dp), intent(in), dimension(lenof_sign) :: RealwSign
integer, intent(in) :: WalkExcitLevel
integer, intent(in), optional :: DetPos

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

public pure function powerScaleFunction(hdiag) result(Si)

Arguments

Type IntentOptional Attributes Name
real(kind=dp), intent(in) :: hdiag

Return Value real(kind=dp)

public pure function expScaleFunction(hdiag) result(Si)

Arguments

Type IntentOptional Attributes Name
real(kind=dp), intent(in) :: hdiag

Return Value real(kind=dp)

public pure function expCOScaleFunction(hdiag) result(Si)

Arguments

Type IntentOptional Attributes Name
real(kind=dp), intent(in) :: hdiag

Return Value real(kind=dp)

public pure function negScaleFunction(hdiag) result(Si)

Arguments

Type IntentOptional Attributes Name
real(kind=dp), intent(in) :: hdiag

Return Value real(kind=dp)

public pure function constShiftFactorFunction(pos, run, pop) result(f)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: pos
integer, intent(in) :: run
real(kind=dp), intent(in) :: pop

Return Value real(kind=dp)

public pure function linearShiftFactorFunction(pos, run, pop) result(f)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: pos
integer, intent(in) :: run
real(kind=dp), intent(in) :: pop

Return Value real(kind=dp)

public pure function autoShiftFactorFunction(pos, run, pop) result(f)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: pos
integer, intent(in) :: run
real(kind=dp), intent(in) :: pop

Return Value real(kind=dp)


Subroutines

public subroutine null_encode_child(ilutI, ilutj, ic, ex)

Arguments

Type IntentOptional Attributes Name
integer(kind=n_int), intent(in) :: ilutI(0:niftot)
integer(kind=n_int), intent(inout) :: ilutj(0:niftot)
integer, intent(in) :: ic
integer, intent(in) :: ex(2,ic)

public subroutine new_child_stats_normal(iter_data, iLutI, nJ, iLutJ, ic, walkExLevel, child, parent_flags, part_type)

Arguments

Type IntentOptional Attributes Name
type(fcimc_iter_data), intent(inout) :: iter_data
integer(kind=n_int), intent(in) :: iLutI(0:niftot)
integer, intent(in) :: nJ(nel)
integer(kind=n_int), intent(in) :: iLutJ(0:niftot)
integer, intent(in) :: ic
integer, intent(in) :: walkExLevel
real(kind=dp), intent(in), dimension(lenof_sign) :: child
integer, intent(in) :: parent_flags
integer, intent(in) :: part_type