modify shifted green's function to make it more robust

impact-lbl · May 6, 2024 · 8e72f94 · 8e72f94
1 parent d3175a0
commit 8e72f94
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/src/Appl/Field.f90 b/src/Appl/Field.f90
@@ -957,11 +957,13 @@ subroutine greenf1tIntshift2(nx,ny,nz,nsizez,nsizey,nsizexy,nsizeyz,&
         double complex, dimension(2*nz,nsizexy) :: tmp3
         double complex, allocatable, dimension(:,:,:) :: x1,x2
         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