mirror of
https://gitlab.com/scemama/qmcchem.git
synced 2024-08-29 22:33:41 +02:00
Merge lpqlx139:qmcchem
This commit is contained in:
commit
56a1b47c61
@ -252,12 +252,10 @@ BEGIN_PROVIDER [ double precision, E_loc ]
|
||||
enddo
|
||||
|
||||
! Avoid divergence of E_loc and population explosion
|
||||
if (do_pseudo) then
|
||||
if (do_pseudo .and. (qmc_method == t_DMC) ) then
|
||||
double precision :: delta_e
|
||||
! delta_e = E_loc-E_ref
|
||||
! E_loc = E_ref + erf(delta_e*time_step_sq)/time_step_sq
|
||||
E_loc = max(2.d0*E_ref, E_loc)
|
||||
! continue
|
||||
delta_e = E_loc-E_ref
|
||||
E_loc = E_ref + delta_e * dexp(-dabs(delta_e)*time_step_sq)
|
||||
endif
|
||||
E_loc_min = min(E_loc,E_loc_min)
|
||||
E_loc_max = max(E_loc,E_loc_max)
|
||||
|
Loading…
Reference in New Issue
Block a user