diff --git a/src/Appl/Field.f90 b/src/Appl/Field.f90
index cf7d7b8..d861fd7 100644
--- a/src/Appl/Field.f90
+++ b/src/Appl/Field.f90
@@ -775,8 +775,8 @@ subroutine greenf1tIntnew2(nx,ny,nz,nsizez,nsizey,nsizexy,nsizeyz,&
         double complex :: gg,gg2
         double complex :: ggrr
         double precision, dimension(2) :: xx,yy,zz
-        real*16, dimension(3) :: vv
-        real*16 :: rr
+        real*8, dimension(3) :: vv
+        real*8 :: rr
 
         integer :: n,i0,j0,k0
         double precision :: recfourpi
@@ -962,8 +962,8 @@ subroutine greenf1tIntshift2(nx,ny,nz,nsizez,nsizey,nsizexy,nsizeyz,&
         double complex :: gg,gg2
         double complex :: ggrr
         double precision, dimension(2) :: xx,yy,zz
-        real*16, dimension(3) :: vv
-        real*16 :: rr
+        real*8, dimension(3) :: vv
+        real*8 :: rr
 
         integer :: n,i0,j0,k0
         double precision :: recfourpi