LCPQ/quack
4
1
Fork 0
mirror of https://github.com/pfloos/quack synced 2024-12-23 04:43:53 +01:00
Code Releases Activity

fix bug in BSE2@GW

Browse Source
This commit is contained in:
Pierre-Francois Loos 2023-03-13 10:10:40 +01:00
parent 239aef1120
commit a1b4abf10a
3 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
input/methods
View File

@ -11,9 +11,9 @@
# RPA* RPAx* crRPA ppRPA # RPA* RPAx* crRPA ppRPA
F F F F F F F F
# G0F2* evGF2* qsGF2* G0F3 evGF3 # G0F2* evGF2* qsGF2* G0F3 evGF3
F F F F F T F F F F
# G0W0* evGW* qsGW* SRG-qsGW ufG0W0 ufGW # G0W0* evGW* qsGW* SRG-qsGW ufG0W0 ufGW
T F F F F T F F F F F F
# G0T0 evGT qsGT # G0T0 evGT qsGT
F F F F F F
# * unrestricted version available # * unrestricted version available

6
input/options
View File

@ -5,9 +5,9 @@
# CC: maxSCF thresh DIIS n_diis # CC: maxSCF thresh DIIS n_diis
64 0.0000001 T 5 64 0.0000001 T 5
# spin: TDA singlet triplet spin_conserved spin_flip # spin: TDA singlet triplet spin_conserved spin_flip
F T T T T T T T T T
# GF: maxSCF thresh DIIS n_diis lin eta renorm reg # GF: maxSCF thresh DIIS n_diis lin eta renorm reg
256 0.00001 T 5 T 0.0 3 F 256 0.00001 T 5 T 0.0 0 F
# GW: maxSCF thresh DIIS n_diis lin eta COHSEX SOSEX TDA_W reg # GW: maxSCF thresh DIIS n_diis lin eta COHSEX SOSEX TDA_W reg
256 0.00001 T 5 T 0.01 F F F F 256 0.00001 T 5 T 0.01 F F F F
# GT: maxSCF thresh DIIS n_diis lin eta TDA_T reg # GT: maxSCF thresh DIIS n_diis lin eta TDA_T reg
@ -15,4 +15,4 @@
# ACFDT: AC Kx XBS # ACFDT: AC Kx XBS
F T T F T T
# BSE: BSE dBSE dTDA evDyn ppBSE BSE2 # BSE: BSE dBSE dTDA evDyn ppBSE BSE2
F F T F F F T F T F F F

2
src/GW/BSE2_static_kernel_KB.f90
View File

@ -53,7 +53,7 @@ subroutine BSE2_static_kernel_KB(eta,nBas,nC,nO,nV,nR,nS,lambda,eW,W,KB2_sta)
KB2_sta(ia,jb) = KB2_sta(ia,jb) - num*dem/(dem**2 + eta**2) KB2_sta(ia,jb) = KB2_sta(ia,jb) - num*dem/(dem**2 + eta**2)
dem = + (eW(c) - eW(k)) dem = + (eW(c) - eW(k))
num = 2d0*W(b,c,i,k)*W(a,k,b,c) num = 2d0*W(b,c,i,k)*W(a,k,j,c)
KB2_sta(ia,jb) = KB2_sta(ia,jb) + num*dem/(dem**2 + eta**2) KB2_sta(ia,jb) = KB2_sta(ia,jb) + num*dem/(dem**2 + eta**2)