mirror of
https://gitlab.com/scemama/qmcchem.git
synced 2024-12-21 11:53:30 +01:00
Minor changes
This commit is contained in:
parent
5657597900
commit
7e4c64a81b
@ -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
|
||||
|
@ -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)
|
||||
|
Loading…
Reference in New Issue
Block a user