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