Changeset 1166 for palm/trunk/SOURCE/cuda_fft_interfaces.f90

Timestamp:

May 24, 2013 1:55:44 PM (12 years ago)

Author:

raasch

Message:

small adjustment + bugfix for PGI 13.4 / CUDA 5.0

File:

• palm/trunk/SOURCE/cuda_fft_interfaces.f90 (modified) (4 diffs)

palm/trunk/SOURCE/cuda_fft_interfaces.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-!
+! C_DOUBLE/COMPLEX reset to dpk,
+! DEVICE attribut added to idata/odata arguments
 !
 ! Former revisions:
@@ -78 +79 @@
           USE ISO_C_BINDING
 
-          INTEGER(C_INT), value ::  plan
+          INTEGER(C_INT), VALUE ::  plan
 
        END SUBROUTINE CUFFTDESTROY
@@ -90 +91 @@
 
           USE ISO_C_BINDING
+          USE precision_kind
 
-          INTEGER(C_INT)            ::  plan
-          COMPLEX(C_DOUBLE_COMPLEX) ::  idata(:,:,:)
-          REAL(C_DOUBLE)            ::  odata(:,:,:)
+          INTEGER(C_INT), VALUE ::  plan
+          COMPLEX(dpk), DEVICE  ::  idata(:,:,:)
+          REAL(dpk), DEVICE     ::  odata(:,:,:)
 
        END SUBROUTINE CUFFTEXECZ2D
@@ -105 +107 @@
 
           USE ISO_C_BINDING
+          USE precision_kind
 
-          INTEGER(C_INT)            ::  plan
-          REAL(C_DOUBLE)            ::  idata(:,:,:)
-          COMPLEX(C_DOUBLE_COMPLEX) ::  odata(:,:,:)
+          INTEGER(C_INT), VALUE ::  plan
+          REAL(dpk), DEVICE     ::  idata(:,:,:)
+          COMPLEX(dpk), DEVICE  ::  odata(:,:,:)
 
        END SUBROUTINE CUFFTEXECD2Z