mirror of
https://gitlab.com/scemama/qmcchem.git
synced 2024-06-24 14:12:06 +02:00
47 lines
1.5 KiB
FortranFixed
47 lines
1.5 KiB
FortranFixed
|
program qmcchem_info
|
||
|
implicit none
|
||
|
PROVIDE ezfio_filename
|
||
|
double precision :: cpu0, cpu1
|
||
|
character*(8) :: str_n
|
||
|
integer :: iargc
|
||
|
integer :: imax
|
||
|
if (command_argument_count() > 1) then
|
||
|
call get_command_argument(2,str_n)
|
||
|
read(str_n,*) imax
|
||
|
else
|
||
|
imax = 100
|
||
|
endif
|
||
|
print *, 'Number of determinants : ', det_num
|
||
|
print *, 'Number of unique alpha/beta determinants : ', det_alpha_num, det_beta_num
|
||
|
! print *, 'Number of vectors in SVD : ', psi_svd_size
|
||
|
print *, 'Closed-shell MOs : ', mo_closed_num
|
||
|
print *, 'Number of MOs in determinants : ', num_present_mos
|
||
|
! print *, 'do SVD? : ', do_det_svd
|
||
|
! print *, 'det_coef matrix is sparse : ', det_coef_matrix_is_sparse
|
||
|
print *, 'Det alpha norm:'
|
||
|
print *, det_alpha_norm
|
||
|
print *, 'Det beta norm:'
|
||
|
print *, det_beta_norm
|
||
|
call step1
|
||
|
call cpu_time (cpu0)
|
||
|
call step2(imax)
|
||
|
call cpu_time (cpu1)
|
||
|
print *, 'Time for the calculation of E_loc (ms) : ', 1000.*(cpu1-cpu0)/float(imax)
|
||
|
end
|
||
|
|
||
|
subroutine step1
|
||
|
implicit none
|
||
|
print *, 'E_loc : ', E_loc
|
||
|
PROVIDE E_loc
|
||
|
end
|
||
|
|
||
|
subroutine step2(imax)
|
||
|
implicit none
|
||
|
integer, intent(in) :: imax
|
||
|
integer :: i
|
||
|
do i=1,imax
|
||
|
PROVIDE E_loc
|
||
|
TOUCH elec_coord
|
||
|
enddo
|
||
|
end
|