diff --git a/src/ao_one_e_ints/pseudopot.f90 b/src/ao_one_e_ints/pseudopot.f90
index 141292d8..67dda7b5 100644
--- a/src/ao_one_e_ints/pseudopot.f90
+++ b/src/ao_one_e_ints/pseudopot.f90
@@ -1097,7 +1097,7 @@ implicit none
 integer nptsgridmax,nptsgrid
 double precision coefs_pseudo,ptsgrid
 parameter(nptsgridmax=50)
-common/pseudos/coefs_pseudo(nptsgridmax),ptsgrid(nptsgridmax,3)
+double precision common/pseudos/coefs_pseudo(nptsgridmax),ptsgrid(nptsgridmax,3)
 !!!!!
 integer npower_orb(3),l,m,i
 double precision x,g_orb,two_pi,dx,dphi,term,orb_phi,ylm_real,sintheta,r_orb,phi,center_orb(3)
@@ -1238,7 +1238,7 @@ end
       double precision coefs_pseudo,ptsgrid
       double precision p,q,r,s
       parameter(nptsgridmax=50)
-      common/pseudos/coefs_pseudo(nptsgridmax),ptsgrid(nptsgridmax,3)
+      double precision common/pseudos/coefs_pseudo(nptsgridmax),ptsgrid(nptsgridmax,3)
 
       p=1.d0/dsqrt(2.d0)
       q=1.d0/dsqrt(3.d0)