mirror of https://gitlab.com/scemama/qmcchem.git
26 lines
704 B
Fortran
26 lines
704 B
Fortran
program vmc_test
|
|
real :: t1,t2
|
|
print *, 'Ndet=',det_num
|
|
print *, 'Ndet alpha beta =',det_alpha_num, det_beta_num
|
|
if (do_prepare) then
|
|
stop 'No walkers'
|
|
endif
|
|
print *, 'E_loc = ', E_loc
|
|
call step2
|
|
call ezfio_finish
|
|
end
|
|
|
|
subroutine step2
|
|
implicit none
|
|
real :: accep_rate
|
|
print *, '---'
|
|
print *, '<E_loc> = ', E_loc_block_walk
|
|
print *, '<E_loc_2> = ', E_loc_2_block_walk
|
|
print *, 'w = ', block_weight
|
|
print *, 'Accept', accep_rate()
|
|
print *, ''
|
|
print *, ci_dress_vmc_block_walk
|
|
end
|
|
|
|
|