LCPQ/qp2
9
1
Fork 0
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-12-22 03:23:29 +01:00
Code Releases Activity

More robust SCF

Browse Source
This commit is contained in:
Anthony Scemama 2020-03-06 13:36:46 +01:00
parent ac35c8dbbb
commit 5951d4338a
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/scf_utils/diagonalize_fock.irp.f
View File

@ -7,11 +7,11 @@ BEGIN_PROVIDER [ double precision, eigenvectors_Fock_matrix_mo, (ao_num,mo_num)
integer :: i,j integer :: i,j
integer :: liwork, lwork, n, info integer :: liwork, lwork, n, info
integer, allocatable :: iwork(:) integer, allocatable :: iwork(:)
double precision, allocatable :: work(:), F(:,:), S(:,:) double precision, allocatable :: work(:), F(:,:), F_save(:,:)
double precision, allocatable :: diag(:) double precision, allocatable :: diag(:)
allocate( F(mo_num,mo_num) ) allocate( F(mo_num,mo_num), F_save(mo_num,mo_num) )
allocate (diag(mo_num) ) allocate (diag(mo_num) )
do j=1,mo_num do j=1,mo_num
@ -51,6 +51,7 @@ BEGIN_PROVIDER [ double precision, eigenvectors_Fock_matrix_mo, (ao_num,mo_num)
lwork = -1 lwork = -1
liwork = -1 liwork = -1
F_save = F
call dsyevd( 'V', 'U', mo_num, F, & call dsyevd( 'V', 'U', mo_num, F, &
size(F,1), diag, work, lwork, iwork, liwork, info) size(F,1), diag, work, lwork, iwork, liwork, info)
@ -71,6 +72,7 @@ BEGIN_PROVIDER [ double precision, eigenvectors_Fock_matrix_mo, (ao_num,mo_num)
if (info /= 0) then if (info /= 0) then
F = F_save
call dsyev( 'V', 'L', mo_num, F, & call dsyev( 'V', 'L', mo_num, F, &
size(F,1), diag, work, lwork, info) size(F,1), diag, work, lwork, info)
@ -83,7 +85,7 @@ BEGIN_PROVIDER [ double precision, eigenvectors_Fock_matrix_mo, (ao_num,mo_num)
call dgemm('N','N',ao_num,mo_num,mo_num, 1.d0, & call dgemm('N','N',ao_num,mo_num,mo_num, 1.d0, &
mo_coef, size(mo_coef,1), F, size(F,1), & mo_coef, size(mo_coef,1), F, size(F,1), &
0.d0, eigenvectors_Fock_matrix_mo, size(eigenvectors_Fock_matrix_mo,1)) 0.d0, eigenvectors_Fock_matrix_mo, size(eigenvectors_Fock_matrix_mo,1))
deallocate(work, F, diag) deallocate(work, F, F_save, diag)
END_PROVIDER END_PROVIDER