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

dBSE@GT

Browse Source
This commit is contained in:
Pierre-Francois Loos 2021-10-17 12:46:47 +02:00
parent 35d31cf705
commit 0ec1dc47de
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/MBPT/dynamic_Tmatrix_A.f90
View File

@ -77,7 +77,7 @@ subroutine dynamic_Tmatrix_A(eta,nBas,nC,nO,nV,nR,nS,nOO,nVV,lambda,eGT,Omega1,O
chi = chi + rho2(i,j,kl)*rho2(a,b,kl)*eps/(eps**2 + eta**2)
end do
A_dyn(ia,jb) = A_dyn(ia,jb) - lambda*chi
A_dyn(ia,jb) = A_dyn(ia,jb) - 2d0*lambda*chi
end do
end do

2
src/MBPT/dynamic_Tmatrix_ZA.f90
View File

@ -63,7 +63,7 @@ subroutine dynamic_Tmatrix_ZA(eta,nBas,nC,nO,nV,nR,nS,nOO,nVV,lambda,eGT,Omega1,
chi = chi + rho2(i,j,kl)*rho2(a,b,kl)*(eps**2 - eta**2)/(eps**2 + eta**2)**2
end do
ZA_dyn(ia,jb) = ZA_dyn(ia,jb) + lambda*chi
ZA_dyn(ia,jb) = ZA_dyn(ia,jb) + 2d0*lambda*chi
end do
end do