mirror of
https://github.com/pfloos/quack
synced 2024-12-22 20:35:36 +01:00
ok for now with search
This commit is contained in:
parent
925dc64bc8
commit
849bb698f1
@ -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(:)
|
||||||
|
Loading…
Reference in New Issue
Block a user