LCPQ/quantum_package
10
0
Fork 0
mirror of https://github.com/LCPQ/quantum_package synced 2024-06-17 18:55:26 +02:00
Code Issues Releases Wiki Activity

Level shift was misplaced

Browse Source
This commit is contained in:
Anthony Scemama 2016-01-18 23:11:55 +01:00
parent 42613a384f
commit 824c539800
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
plugins/Hartree_Fock/diagonalize_fock.irp.f
View File

@ -71,8 +71,12 @@
! Insert level shift here
do i = elec_beta_num+1, elec_alpha_num
F(i,i) += 0.5d0*level_shift
enddo
do i = elec_alpha_num+1, mo_tot_num
Fock_matrix_mo(i,i) += level_shift
F(i,i) += level_shift
enddo
n = mo_tot_num
@ -111,10 +115,6 @@
0.d0, eigenvectors_Fock_matrix_mo, size(eigenvectors_Fock_matrix_mo,1))
deallocate(work, iwork, F)
! Remove level shift
do i = elec_alpha_num+1, mo_tot_num
Fock_matrix_mo(i,i) -= level_shift
enddo
! endif