From 90b7f9d28a5ac176ce29cb0c7cc08cf5bdfad60c Mon Sep 17 00:00:00 2001 From: Ji Qiang Date: Wed, 5 Jun 2024 08:53:06 -0700 Subject: [PATCH] reversed the solver due to speed --- src/Appl/Field.f90 | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) 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