10
0
mirror of https://github.com/LCPQ/quantum_package synced 2024-12-25 13:53:49 +01:00

Improved HF convergence

This commit is contained in:
Anthony Scemama 2018-10-30 16:00:33 +01:00
parent 69fa4dcbaa
commit f313e5b740

View File

@ -103,12 +103,12 @@ END_DOC
do while (Delta_Energy_SCF > 0.d0) do while (Delta_Energy_SCF > 0.d0)
mo_coef(1:ao_num,1:mo_tot_num) = mo_coef_save mo_coef(1:ao_num,1:mo_tot_num) = mo_coef_save
TOUCH mo_coef TOUCH mo_coef
level_shift = level_shift + 0.1d0 level_shift = level_shift + 1.0d0
mo_coef(1:ao_num,1:mo_tot_num) = eigenvectors_Fock_matrix_MO(1:ao_num,1:mo_tot_num) mo_coef(1:ao_num,1:mo_tot_num) = eigenvectors_Fock_matrix_MO(1:ao_num,1:mo_tot_num)
TOUCH mo_coef level_shift TOUCH mo_coef level_shift
Delta_Energy_SCF = HF_energy - energy_SCF_previous Delta_Energy_SCF = HF_energy - energy_SCF_previous
energy_SCF = HF_energy energy_SCF = HF_energy
if (level_shift-level_shift_save > 1.d0) exit if (level_shift-level_shift_save > 20.d0) exit
dim_DIIS=0 dim_DIIS=0
enddo enddo
level_shift = level_shift_save level_shift = level_shift_save