From a46fcc53b7f1dd37e05e1796f4c0b015d3c52996 Mon Sep 17 00:00:00 2001 From: Luv Sharma Date: Mon, 18 Jan 2016 09:07:48 +0000 Subject: [PATCH] corrected a typo. --- code/spectral_utilities.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/code/spectral_utilities.f90 b/code/spectral_utilities.f90 index 325ee56d9..bc92167c4 100644 --- a/code/spectral_utilities.f90 +++ b/code/spectral_utilities.f90 @@ -617,7 +617,7 @@ subroutine utilities_fourierGreenConvolution(D_ref, mobility_ref, deltaT) do k = 1_pInt, grid3; do j = 1_pInt, grid(2) ;do i = 1_pInt, grid1Red GreenOp_hat = cmplx(1.0_pReal,0.0_pReal,pReal)/ & (cmplx(mobility_ref,0.0_pReal,pReal) + & - deltaT*sum(conjg(-xi1st(1:3,i,j,k))*matmul(D_ref,xi1st(1:3,i,j,k)))) + deltaT*sum(conjg(xi1st(1:3,i,j,k))*matmul(D_ref,xi1st(1:3,i,j,k)))) ! why not use dot_product scalarField_fourier(i,j,k) = scalarField_fourier(i,j,k)*GreenOp_hat enddo; enddo; enddo