diff --git a/src/MBPT/dynamic_Tmatrix_A.f90 b/src/MBPT/dynamic_Tmatrix_A.f90 index 5882652..469ebe8 100644 --- a/src/MBPT/dynamic_Tmatrix_A.f90 +++ b/src/MBPT/dynamic_Tmatrix_A.f90 @@ -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 diff --git a/src/MBPT/dynamic_Tmatrix_ZA.f90 b/src/MBPT/dynamic_Tmatrix_ZA.f90 index 741718a..fe58db4 100644 --- a/src/MBPT/dynamic_Tmatrix_ZA.f90 +++ b/src/MBPT/dynamic_Tmatrix_ZA.f90 @@ -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