LCPQ/quack
4
1
Fork 0
mirror of https://github.com/pfloos/quack synced 2024-06-02 11:25:28 +02:00
Code Releases Activity

ok for now with search

Browse Source
This commit is contained in:
Pierre-Francois Loos 2023-11-04 16:59:54 +01:00
parent 925dc64bc8
commit 849bb698f1
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/HF/GHF_search.f90
View File

@ -146,7 +146,7 @@ subroutine GHF_search(maxSCF,thresh,max_diis,guess_type,mix,level_shift,nNuc,ZNu
call phLR_A(ispin,.false.,nBas2,nC,nO,nV,nR,nS,1d0,e,ERI_MO,Aph) call phLR_A(ispin,.false.,nBas2,nC,nO,nV,nR,nS,1d0,e,ERI_MO,Aph)
call phLR_B(ispin,.false.,nBas2,nC,nO,nV,nR,nS,1d0,ERI_MO,Bph) call phLR_B(ispin,.false.,nBas2,nC,nO,nV,nR,nS,1d0,ERI_MO,Bph)
AB(:,:) = Aph(:,:) + Bph(:,:) AB(:,:) = Aph(:,:) - Bph(:,:)
call diagonalize_matrix(nS,AB,Om) call diagonalize_matrix(nS,AB,Om)
Om(:) = 0.5d0*Om(:) Om(:) = 0.5d0*Om(:)