LCPQ/qmcchem
10
1
Fork 1
mirror of https://gitlab.com/scemama/qmcchem.git synced 2024-11-06 22:23:39 +01:00
Code Releases Activity

Cleaned PDMC

Browse Source
This commit is contained in:
Anthony Scemama 2016-11-28 19:45:09 +01:00
parent dc187bea73
commit 4c42654401
2 changed files with 13 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/PROPERTIES/properties_energy.irp.f
View File

@ -270,7 +270,9 @@ BEGIN_PROVIDER [ double precision, E_loc_zv ]
BEGIN_DOC BEGIN_DOC
! Zero-variance parameter on E_loc ! Zero-variance parameter on E_loc
END_DOC END_DOC
E_loc_zv = E_loc + (E_trial-E_loc) * dmc_zv_weight E_loc_zv = E_loc
E_loc_zv += (E_trial-E_loc) * dmc_zv_weight
! E_loc_zv += - time_step*(E_trial**2 + 1.44341217940434 - E_loc**2)*dmc_zv_weight
! E_loc_zv(3) = dmc_zv_weight_half ! E_loc_zv(3) = dmc_zv_weight_half
! E_loc_zv(:) = 0.d0 ! E_loc_zv(:) = 0.d0

20
src/SAMPLING/pdmc_step.irp.f
View File

@ -109,9 +109,9 @@ END_SHELL
endif endif
integer :: info integer :: info
double precision :: H(0:pdmc_n_diag/2,0:pdmc_n_diag/2), S(0:pdmc_n_diag/2,0:pdmc_n_diag/2), w(0:pdmc_n_diag/2), work(3*pdmc_n_diag+1) ! double precision :: H(0:pdmc_n_diag/2,0:pdmc_n_diag/2), S(0:pdmc_n_diag/2,0:pdmc_n_diag/2), w(0:pdmc_n_diag/2), work(3*pdmc_n_diag+1)
H = 0.d0 ! H = 0.d0
S = 0.d0 ! S = 0.d0
do while (loop) do while (loop)
@ -234,13 +234,13 @@ END_SHELL
block_weight += pdmc_pop_weight_mult(pdmc_n_diag) * pdmc_weight(i_walk) block_weight += pdmc_pop_weight_mult(pdmc_n_diag) * pdmc_weight(i_walk)
pdmc_pop_weight_mult(0) = 1.d0/pdmc_weight(i_walk) pdmc_pop_weight_mult(0) = 1.d0/pdmc_weight(i_walk)
do k=0,pdmc_n_diag/2 ! do k=0,pdmc_n_diag/2
do l=0,pdmc_n_diag/2 ! do l=0,pdmc_n_diag/2
H(k,l) += E_loc*pdmc_pop_weight_mult(k+l) * pdmc_weight(i_walk) ! H(k,l) += E_loc*pdmc_pop_weight_mult(k+l) * pdmc_weight(i_walk)
S(k,l) += pdmc_pop_weight_mult(k+l) * pdmc_weight(i_walk) ! S(k,l) += pdmc_pop_weight_mult(k+l) * pdmc_weight(i_walk)
enddo ! enddo
enddo ! enddo
H = H + (E_trial - E_loc) ! H = H + (E_trial - E_loc)
! else ! else
! pdmc_weight(i_walk) = 1.d0 ! pdmc_weight(i_walk) = 1.d0