223031012
/
DAMASK_EICMD
mirror of https://github.com/achalhp/DAMASK_EICMD.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

return value of fftw function is defined as cdouble

This commit is contained in:
Daniel Otto de Mentock 2022-12-05 10:39:42 +01:00
parent c2e78158c8
commit 7c6c46c2db
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/grid/spectral_utilities.f90
View File

@ -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