reversed the solver due to speed

impact-lbl · Jun 5, 2024 · 90b7f9d · 90b7f9d
1 parent abd4824
commit 90b7f9d
Showing 1 changed file with 4 additions and 4 deletions.
diff --git 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