mirror of
https://github.com/QuantumPackage/qp2.git
synced 2024-12-21 11:03:29 +01:00
8b22e38c9c
* fixed laplacian of aos * corrected the laplacians of aos * added dft_one_e * added new feature for new dft functionals * changed the configure to add new functionals * changed the configure * added dft_one_e/README.rst * added README.rst in new_functionals * added source/programmers_guide/new_ks.rst * Thesis Yann * Added gmp installation in configure * improved qp_e_conv_fci * Doc * Typos * Added variance_max * Fixed completion in qp_create * modif TODO * fixed DFT potential for n_states gt 1 * improved pot pbe * trying to improve sr PBE * fixed potential pbe * fixed the vxc smashed for pbe sr and normal * Comments in selection * bug fixed by peter * Fixed bug with zero beta electrons * Update README.rst * Update e_xc_new_func.irp.f * Update links.rst * Update quickstart.rst * Update quickstart.rst * updated cipsi * Fixed energies of non-expected s2 (#9) * Moved diag_algorithm in Davdison * Add print_ci_vector in tools (#11) * Fixed energies of non-expected s2 * Moved diag_algorithm in Davdison * Fixed travis * Added print_ci_vector * Documentation * Cleaned qp_set_mo_class.ml * Removed Core in taskserver * Merge develop-toto and manus (#12) * Fixed energies of non-expected s2 * Moved diag_algorithm in Davdison * Fixed travis * Added print_ci_vector * Documentation * Cleaned qp_set_mo_class.ml * Removed Core in taskserver * Frozen core for heavy atoms * Improved molden module * In sync with manus * Fixed some of the documentation errors * Develop toto (#13) * Fixed energies of non-expected s2 * Moved diag_algorithm in Davdison * Fixed travis * Added print_ci_vector * Documentation * Cleaned qp_set_mo_class.ml * Removed Core in taskserver * Frozen core for heavy atoms * Improved molden module * In sync with manus * Fixed some of the documentation errors * Develop manus (#14) * modified printing for rpt2 * Comment * Fixed plugins * Scripting for functionals * Documentation * Develop (#10) * fixed laplacian of aos * corrected the laplacians of aos * added dft_one_e * added new feature for new dft functionals * changed the configure to add new functionals * changed the configure * added dft_one_e/README.rst * added README.rst in new_functionals * added source/programmers_guide/new_ks.rst * Thesis Yann * Added gmp installation in configure * improved qp_e_conv_fci * Doc * Typos * Added variance_max * Fixed completion in qp_create * modif TODO * fixed DFT potential for n_states gt 1 * improved pot pbe * trying to improve sr PBE * fixed potential pbe * fixed the vxc smashed for pbe sr and normal * Comments in selection * bug fixed by peter * Fixed bug with zero beta electrons * Update README.rst * Update e_xc_new_func.irp.f * Update links.rst * Update quickstart.rst * Update quickstart.rst * updated cipsi * Fixed energies of non-expected s2 (#9) * Moved diag_algorithm in Davdison * some modifs * modified gfortran_debug.cfg * fixed automatization of functionals * modified e_xc_general.irp.f * minor modifs in ref_bitmask.irp.f * modifying functionals * rs_ks_scf and ks_scf compiles with the automatic handling of functionals * removed prints * fixed configure * fixed the new functionals * Merge toto * modified automatic functionals * Changed python into python2 * from_xyz suppressed * Cleaning repo * Update README.md * Update README.md * Contributors * Update GITHUB.md * bibtex
162 lines
4.7 KiB
Fortran
162 lines
4.7 KiB
Fortran
subroutine run_cipsi
|
|
implicit none
|
|
BEGIN_DOC
|
|
! Selected Full Configuration Interaction with deterministic selection and
|
|
! stochastic PT2.
|
|
END_DOC
|
|
integer :: i,j,k
|
|
double precision, allocatable :: pt2(:), variance(:), norm(:), rpt2(:)
|
|
integer :: n_det_before, to_select
|
|
|
|
double precision :: rss
|
|
double precision, external :: memory_of_double
|
|
rss = memory_of_double(N_states)*4.d0
|
|
call check_mem(rss,irp_here)
|
|
|
|
allocate (pt2(N_states), rpt2(N_states), norm(N_states), variance(N_states))
|
|
|
|
double precision :: hf_energy_ref
|
|
logical :: has
|
|
double precision :: relative_error
|
|
|
|
PROVIDE H_apply_buffer_allocated
|
|
|
|
relative_error=PT2_relative_error
|
|
|
|
pt2 = -huge(1.e0)
|
|
rpt2 = -huge(1.e0)
|
|
norm = 0.d0
|
|
variance = 0.d0
|
|
|
|
if (s2_eig) then
|
|
call make_s2_eigenfunction
|
|
endif
|
|
call diagonalize_CI
|
|
call save_wavefunction
|
|
|
|
call ezfio_has_hartree_fock_energy(has)
|
|
if (has) then
|
|
call ezfio_get_hartree_fock_energy(hf_energy_ref)
|
|
else
|
|
hf_energy_ref = ref_bitmask_energy
|
|
endif
|
|
|
|
if (N_det > N_det_max) then
|
|
psi_det = psi_det_sorted
|
|
psi_coef = psi_coef_sorted
|
|
N_det = N_det_max
|
|
soft_touch N_det psi_det psi_coef
|
|
if (s2_eig) then
|
|
call make_s2_eigenfunction
|
|
endif
|
|
call diagonalize_CI
|
|
call save_wavefunction
|
|
endif
|
|
|
|
n_det_before = 0
|
|
|
|
double precision :: correlation_energy_ratio
|
|
double precision :: threshold_generators_save
|
|
threshold_generators_save = threshold_generators
|
|
double precision :: error(N_states)
|
|
logical, external :: qp_stop
|
|
|
|
correlation_energy_ratio = 0.d0
|
|
|
|
do while ( &
|
|
(N_det < N_det_max) .and. &
|
|
(maxval(abs(pt2(1:N_states))) > pt2_max) .and. &
|
|
(correlation_energy_ratio <= correlation_energy_ratio_max) &
|
|
)
|
|
write(*,'(A)') '--------------------------------------------------------------------------------'
|
|
|
|
|
|
if (do_pt2) then
|
|
pt2 = 0.d0
|
|
variance = 0.d0
|
|
norm = 0.d0
|
|
threshold_generators = 1.d0
|
|
SOFT_TOUCH threshold_generators
|
|
call ZMQ_pt2(psi_energy_with_nucl_rep,pt2,relative_error,error, variance, &
|
|
norm, 0) ! Stochastic PT2
|
|
threshold_generators = threshold_generators_save
|
|
SOFT_TOUCH threshold_generators
|
|
endif
|
|
|
|
|
|
correlation_energy_ratio = (psi_energy_with_nucl_rep(1) - hf_energy_ref) / &
|
|
(psi_energy_with_nucl_rep(1) + pt2(1) - hf_energy_ref)
|
|
correlation_energy_ratio = min(1.d0,correlation_energy_ratio)
|
|
|
|
call write_double(6,correlation_energy_ratio, 'Correlation ratio')
|
|
call print_summary(psi_energy_with_nucl_rep(1:N_states),pt2,error,variance,norm,N_det,N_occ_pattern,N_states,psi_s2)
|
|
|
|
do k=1,N_states
|
|
rpt2(:) = pt2(:)/(1.d0 + norm(k))
|
|
enddo
|
|
call save_energy(psi_energy_with_nucl_rep, rpt2)
|
|
|
|
call save_iterations(psi_energy_with_nucl_rep(1:N_states),rpt2,N_det)
|
|
call print_extrapolated_energy()
|
|
N_iter += 1
|
|
|
|
if (qp_stop()) exit
|
|
|
|
n_det_before = N_det
|
|
to_select = N_det
|
|
to_select = max(N_states_diag, to_select)
|
|
! to_select = min(to_select, N_det_max-n_det_before)
|
|
call ZMQ_selection(to_select, pt2, variance, norm)
|
|
|
|
PROVIDE psi_coef
|
|
PROVIDE psi_det
|
|
PROVIDE psi_det_sorted
|
|
|
|
call diagonalize_CI
|
|
call save_wavefunction
|
|
rpt2(:) = 0.d0
|
|
call save_energy(psi_energy_with_nucl_rep, rpt2)
|
|
if (qp_stop()) exit
|
|
enddo
|
|
|
|
if (.not.qp_stop()) then
|
|
if (N_det < N_det_max) then
|
|
call diagonalize_CI
|
|
call save_wavefunction
|
|
rpt2(:) = 0.d0
|
|
call save_energy(psi_energy_with_nucl_rep, rpt2)
|
|
endif
|
|
|
|
if (do_pt2) then
|
|
pt2 = 0.d0
|
|
variance = 0.d0
|
|
norm = 0.d0
|
|
threshold_generators = 1d0
|
|
SOFT_TOUCH threshold_generators
|
|
call ZMQ_pt2(psi_energy_with_nucl_rep, pt2,relative_error,error,variance, &
|
|
norm,0) ! Stochastic PT2
|
|
SOFT_TOUCH threshold_generators
|
|
do k=1,N_states
|
|
rpt2(:) = pt2(:)/(1.d0 + norm(k))
|
|
enddo
|
|
call save_energy(psi_energy_with_nucl_rep, pt2)
|
|
endif
|
|
print *, 'N_det = ', N_det
|
|
print *, 'N_sop = ', N_occ_pattern
|
|
print *, 'N_states = ', N_states
|
|
print*, 'correlation_ratio = ', correlation_energy_ratio
|
|
|
|
|
|
do k=1,N_states
|
|
rpt2(:) = pt2(:)/(1.d0 + norm(k))
|
|
enddo
|
|
call save_energy(psi_energy_with_nucl_rep, rpt2)
|
|
|
|
call print_summary(psi_energy_with_nucl_rep(1:N_states),pt2,error,variance,norm,N_det,N_occ_pattern,N_states,psi_s2)
|
|
call save_energy(psi_energy_with_nucl_rep, pt2)
|
|
call save_iterations(psi_energy_with_nucl_rep(1:N_states),rpt2,N_det)
|
|
call print_extrapolated_energy()
|
|
endif
|
|
|
|
end
|