From 05b4dd1973b092357a619cd0e02dd2709920e833 Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Sun, 10 Mar 2019 09:08:54 +0100 Subject: [PATCH] correct type casting --- src/spectral_utilities.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/spectral_utilities.f90 b/src/spectral_utilities.f90 index 8c79eabe2..647886cc1 100644 --- a/src/spectral_utilities.f90 +++ b/src/spectral_utilities.f90 @@ -1148,7 +1148,7 @@ subroutine utilities_updateIPcoords(F) call utilities_fourierTensorDivergence() do k = 1_pInt, grid3; do j = 1_pInt, grid(2); do i = 1_pInt, grid1Red - if (any(cNeq(xi1st(1:3,i,j,k),cmplx(0.0_pReal,0.0_pReal)))) & + if (any(cNeq(xi1st(1:3,i,j,k),cmplx(0.0,0.0,pReal)))) & vectorField_fourier(1:3,i,j,k) = vectorField_fourier(1:3,i,j,k)/ & sum(conjg(-xi1st(1:3,i,j,k))*xi1st(1:3,i,j,k)) enddo; enddo; enddo