diff --git a/src/Appl/Field.f90 b/src/Appl/Field.f90
index d91f3ee..cf7d7b8 100644
--- a/src/Appl/Field.f90
+++ b/src/Appl/Field.f90
@@ -771,11 +771,13 @@ 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
 
@@ -956,11 +958,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