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

Timestamp:

May 10, 2013 2:33:08 PM (11 years ago)

Author:

raasch

Message:

code adjustment of accelerator version for PGI 12.3 / CUDA 5.0

File:

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

palm/trunk/SOURCE/cuda_fft_interfaces.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! 
+! code adjustment of data types for CUDA fft required by PGI 12.3 / CUDA 5.0
 !
 ! Former revisions:
@@ -87 +87 @@
 
           USE ISO_C_BINDING
-          USE precision_kind
 
-          INTEGER(C_INT), value ::  plan
-          COMPLEX(dpk), device  ::  idata(:,:,:)
-          REAL(dpk), device     ::  odata(:,:,:)
+          INTEGER(C_INT)            ::  plan
+          COMPLEX(C_DOUBLE_COMPLEX) ::  idata(:,:,:)
+          REAL(C_DOUBLE)            ::  odata(:,:,:)
 
        END SUBROUTINE CUFFTEXECZ2D
@@ -103 +102 @@
 
           USE ISO_C_BINDING
-          USE precision_kind
 
-          INTEGER(C_INT), value ::  plan
-          REAL(dpk), device     ::  idata(:,:,:)
-          COMPLEX(dpk), device  ::  odata(:,:,:)
+          INTEGER(C_INT)            ::  plan
+          REAL(C_DOUBLE)            ::  idata(:,:,:)
+          COMPLEX(C_DOUBLE_COMPLEX) ::  odata(:,:,:)
 
        END SUBROUTINE CUFFTEXECD2Z