From 4f07be96f718b4301afb4989a4de1dba469a1251 Mon Sep 17 00:00:00 2001
From: Pierre-Francois Loos <loos@lcpqmc74.univ-tlse3.fr>
Date: Wed, 21 Feb 2024 17:49:43 +0100
Subject: [PATCH] RGWC

---
 src/GW/RGWC.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/GW/RGWC.f90 b/src/GW/RGWC.f90
index 082760c..b9a24b7 100644
--- a/src/GW/RGWC.f90
+++ b/src/GW/RGWC.f90
@@ -226,7 +226,7 @@ subroutine RGWC(dotest,eta,nBas,nC,nO,nV,nR,nS,Om,rho,eHF,e,eGW,Z)
 
 ! Construct grid
 
-  nGrid = 1000
+  nGrid = 5000
   allocate(w(nGrid),AGWC(nBas,nGrid))
 
 ! Minimum and maximum frequency values