LCPQ
/
quack
mirror of https://github.com/pfloos/quack
4
1
Fork 0
Code Releases Activity

typo phBSE dynamic B block

This commit is contained in:
Pierre-Francois Loos 2023-09-14 14:37:37 +02:00
parent 2ae4f95500
commit 9252fdd14c
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/GW/GW_phBSE_dynamic_kernel_B.f90
View File

@ -46,11 +46,11 @@ subroutine GW_phBSE_dynamic_kernel_B(eta,nBas,nC,nO,nV,nR,nS,lambda,eGW,OmRPA,rh
chi = 0d0
do kc=1,nS
eps = - OmRPA(kc) - (eGW(a) - eGW(b))
chi = chi + rho(i,b,kc)*rho(a,j,kc)*eps/(eps**2 + eta**2)
eps = - OmRPA(kc) - (eGW(b) - eGW(i))
chi = chi + rho(i,b,kc)*rho(j,a,kc)*eps/(eps**2 + eta**2)
eps = - OmRPA(kc) - (eGW(j) - eGW(i))
chi = chi + rho(i,b,kc)*rho(a,j,kc)*eps/(eps**2 + eta**2)
eps = - OmRPA(kc) - (eGW(a) - eGW(j))
chi = chi + rho(i,b,kc)*rho(j,a,kc)*eps/(eps**2 + eta**2)
enddo