From 7c6c46c2db64500c15f359a5a5cfcbed00e8cdfa Mon Sep 17 00:00:00 2001 From: Daniel Otto de Mentock Date: Mon, 5 Dec 2022 10:39:42 +0100 Subject: [PATCH] return value of fftw function is defined as cdouble --- src/grid/spectral_utilities.f90 | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/grid/spectral_utilities.f90 b/src/grid/spectral_utilities.f90 index 1ca1d0b16..7947dc788 100644 --- a/src/grid/spectral_utilities.f90 +++ b/src/grid/spectral_utilities.f90 @@ -42,9 +42,9 @@ module spectral_utilities !-------------------------------------------------------------------------------------------------- ! variables storing information for spectral method and FFTW - real(pReal), dimension(:,:,:,:,:), pointer :: tensorField_real !< tensor field in real space - real(pReal), dimension(:,:,:,:), pointer :: vectorField_real !< vector field in real space - real(pReal), dimension(:,:,:), pointer :: scalarField_real !< scalar field in real space + real(C_DOUBLE), dimension(:,:,:,:,:), pointer :: tensorField_real !< tensor field in real space + real(C_DOUBLE), dimension(:,:,:,:), pointer :: vectorField_real !< vector field in real space + real(C_DOUBLE), dimension(:,:,:), pointer :: scalarField_real !< scalar field in real space complex(C_DOUBLE_COMPLEX), dimension(:,:,:,:,:), pointer :: tensorField_fourier !< tensor field in Fourier space complex(C_DOUBLE_COMPLEX), dimension(:,:,:,:), pointer :: vectorField_fourier !< vector field in Fourier space complex(C_DOUBLE_COMPLEX), dimension(:,:,:), pointer :: scalarField_fourier !< scalar field in Fourier space