From 8e72f9496ce49ea802bef5d1d73cbbb32fc58a17 Mon Sep 17 00:00:00 2001 From: Ji Qiang Date: Mon, 6 May 2024 16:21:49 -0700 Subject: [PATCH] modify shifted green's function to make it more robust --- src/Appl/Field.f90 | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/src/Appl/Field.f90 b/src/Appl/Field.f90 index 4972b76..5bee1eb 100644 --- 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