10
1
mirror of https://gitlab.com/scemama/qmcchem.git synced 2024-07-14 15:14:31 +02:00

Minor changes

This commit is contained in:
Anthony Scemama 2020-08-26 10:41:53 +02:00
parent 5657597900
commit 7e4c64a81b
2 changed files with 2 additions and 1 deletions

View File

@ -84,7 +84,7 @@ BEGIN_PROVIDER [ real, jast_pen, (nucl_num) ]
! penetration parameters of the Jastrow
END_DOC
include '../types.F'
jast_pen(:) = 0.
jast_pen(:) = 0.5
call get_jastrow_jast_pen(jast_pen)
END_PROVIDER

View File

@ -257,6 +257,7 @@ BEGIN_PROVIDER [ double precision, E_loc ]
! 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
endif
E_loc_min = min(E_loc,E_loc_min)
E_loc_max = max(E_loc,E_loc_max)