updated IGF for robustness

impact-lbl · Apr 3, 2024 · d3175a0 · d3175a0
1 parent e8fd426
commit d3175a0
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/src/Appl/Field.f90 b/src/Appl/Field.f90
@@ -771,11 +771,12 @@ subroutine greenf1tIntnew2(nx,ny,nz,nsizez,nsizey,nsizexy,nsizeyz,&
         double complex, dimension(2*nz,nsizexy) :: tmp3
         double complex, allocatable, dimension(:,:,:) :: x1
         double complex, allocatable, dimension(:,:,:) :: x0
-        double precision :: rr,aa,bb,cc,dd,ee,ff,ss
+        double precision :: aa,bb,cc,dd,ee,ff,ss
         double complex :: gg,gg2
         double complex :: ggrr
         double precision, dimension(2) :: xx,yy,zz
-        double precision, dimension(3) :: vv
+        real*16, dimension(3) :: vv
+        real*16 :: rr
         integer :: n,i0,j0,k0
         double precision :: recfourpi