Merge branch 'master' into work_env

pfloos · Nov 5, 2024 · 933780a · 933780a
2 parents c2031c9 + 9986ff0
commit 933780a
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/src/GW/RGW_self_energy.f90 b/src/GW/RGW_self_energy.f90
@@ -93,15 +93,15 @@ subroutine RGW_self_energy(eta,nBas,nOrb,nC,nO,nV,nR,nS,e,Om,rho,EcGM,Sig,Z)
 
 !$OMP PARALLEL &
 !$OMP SHARED(Sig,Z,rho,eta,nS,nC,nO,nOrb,nR,e,Om) &
-!$OMP PRIVATE(m,i,q,p,eps,num) &
+!$OMP PRIVATE(m,i,p,eps,num) &
 !$OMP DEFAULT(NONE)
 !$OMP DO
   do p=nC+1,nOrb-nR
      do m=1,nS
         do i=nC+1,nO
 
            eps = e(p) - e(i) + Om(m)
-           num = 2d0*rho(p,i,m)*rho(q,i,m)
+           num = 2d0*rho(p,i,m)*rho(p,i,m)
            Z(p) = Z(p) - num*(eps**2 - eta**2)/(eps**2 + eta**2)**2
 
         end do
@@ -114,15 +114,15 @@ subroutine RGW_self_energy(eta,nBas,nOrb,nC,nO,nV,nR,nS,e,Om,rho,EcGM,Sig,Z)
 
   !$OMP PARALLEL &
   !$OMP SHARED(Sig,Z,rho,eta,nS,nC,nO,nOrb,nR,e,Om) &
-  !$OMP PRIVATE(m,a,q,p,eps,num) &
+  !$OMP PRIVATE(m,a,p,eps,num) &
   !$OMP DEFAULT(NONE)
   !$OMP DO  
   do p=nC+1,nOrb-nR
     do m=1,nS
       do a=nO+1,nOrb-nR
 
         eps = e(p) - e(a) - Om(m)
-        num = 2d0*rho(p,a,m)*rho(q,a,m)
+        num = 2d0*rho(p,a,m)*rho(p,a,m)
         Z(p) = Z(p) - num*(eps**2 - eta**2)/(eps**2 + eta**2)**2
 
       end do