change product to hardcoded number fixes grimme-lab#1012 fixes grimme…

…-lab#998 fixes grimme-lab#997 Signed-off-by: James H. Brown <[email protected]>
james-qbraid · Jun 11, 2024 · 7b4c8c5 · 7b4c8c5
1 parent 67a6b3b
commit 7b4c8c5
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/gfnff/gfnff_eg.f90 b/src/gfnff/gfnff_eg.f90
@@ -4039,9 +4039,9 @@ function get_cf(rTrans,gTrans,vol,avgAlp) result(cf)
   integer, parameter :: ewaldCutD(3) = 2
   integer, parameter :: ewaldCutR(3) = 2
   ! real space lattice vectors
-  real(wp), intent(in) :: rTrans( 3, product(2*ewaldCutD+1))
+  real(wp), intent(in) :: rTrans( 3, 125)
   ! reciprocal space lattice vectors
-  real(wp), intent(in) :: gTrans(3, product(2*ewaldCutR+1)-1)
+  real(wp), intent(in) :: gTrans(3, 124)
   ! unit cell volume 
   real(wp), intent(in) :: vol
   ! average alphaEEQ value