commit RG0W0

src/GW/SRG_self_energy.f90

@@ -48,7 +48,7 @@ subroutine SRG_self_energy(eta,nBas,nC,nO,nV,nR,nS,e,Om,rho,EcGM,SigC,Z)
   !$OMP SHARED(SigC,rho,eta,nS,nC,nO,nBas,nR,e,Om) &
   !$OMP PRIVATE(m,i,q,p,Dpim,Dqim) &
   !$OMP DEFAULT(NONE)
-  !$OMP DO
+  !$OMP DO 
   do q=nC+1,nBas-nR
      do p=nC+1,nBas-nR
         do m=1,nS

src/LR/ppLR_C.f90

@@ -59,25 +59,29 @@ subroutine ppLR_C(ispin,nBas,nC,nO,nV,nR,nVV,lambda,e,ERI,Cpp)
 ! Build C matrix for the triplet manifold, or alpha-alpha block, or in the spin-orbital basis
 
   if(ispin == 2 .or. ispin == 4) then
-
+    !$OMP PARALLEL &
-    ab = 0
+    !$OMP SHARED(Cpp,lambda,ERI,e,eF,nC,nO,nBas,nR) &
-    do a=nO+1,nBas-nR
+    !$OMP PRIVATE(c,d,a,b,ab,cd) &
-     do b=a+1,nBas-nR
+    !$OMP DEFAULT(NONE)
-        ab = ab + 1
+    !$OMP DO
-        cd = 0
+    do c=nO+1,nBas-nR
-        do c=nO+1,nBas-nR
+      do d=c+1,nBas-nR
-         do d=c+1,nBas-nR
+        cd = (c-(nO+1))*(nBas-nR-(nO+1)) - (c-1-(nO+1))*(c-(nO+1))/2 + d - c
-            cd = cd + 1
+          do a=nO+1,nBas-nR
+            do b=a+1,nBas-nR
+              ab = (a-(nO+1))*(nBas-nR-(nO+1)) - (a-1-(nO+1))*(a-(nO+1))/2 + b - a
  
-            Cpp(ab,cd) = + (e(a) + e(b) - eF)*Kronecker_delta(a,c)*Kronecker_delta(b,d) & 
+              Cpp(ab,cd) = + (e(a) + e(b) - eF)*Kronecker_delta(a,c)*Kronecker_delta(b,d) & 
-                         + lambda*(ERI(a,b,c,d) - ERI(a,b,d,c))
+                   + lambda*(ERI(a,b,c,d) - ERI(a,b,d,c))
  
           end do
         end do
       end do
-    end do
+   end do
+   !$OMP END DO
+   !$OMP END PARALLEL
 
-  end if
+ end if
 
 ! Build the alpha-beta block of the C matrix
 

src/make_ninja.py

@@ -78,8 +78,8 @@ FIX_ORDER_OF_LIBS=-Wl,--start-group
 
 
 if sys.platform in ["linux", "linux2"]:
-    compiler = compile_gfortran_linux
+#   compiler = compile_gfortran_linux
-#   compiler = compile_ifort_linux
+    compiler = compile_ifort_linux
 elif sys.platform == "darwin":
   compiler = compile_gfortran_mac
 else: