mirror of
https://gitlab.com/scemama/qmcchem.git
synced 2024-06-02 11:25:18 +02:00
26 lines
704 B
FortranFixed
26 lines
704 B
FortranFixed
|
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
|
||
|
|
|
||
|
|
|