Ignore:
Timestamp:
May 24, 2013 1:55:44 PM (8 years ago)
Author:
raasch
Message:

small adjustment + bugfix for PGI 13.4 / CUDA 5.0

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/cuda_fft_interfaces.f90

    r1154 r1166  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! C_DOUBLE/COMPLEX reset to dpk,
     23! DEVICE attribut added to idata/odata arguments
    2324!
    2425! Former revisions:
     
    7879          USE ISO_C_BINDING
    7980
    80           INTEGER(C_INT), value ::  plan
     81          INTEGER(C_INT), VALUE ::  plan
    8182
    8283       END SUBROUTINE CUFFTDESTROY
     
    9091
    9192          USE ISO_C_BINDING
     93          USE precision_kind
    9294
    93           INTEGER(C_INT)            ::  plan
    94           COMPLEX(C_DOUBLE_COMPLEX) ::  idata(:,:,:)
    95           REAL(C_DOUBLE)            ::  odata(:,:,:)
     95          INTEGER(C_INT), VALUE ::  plan
     96          COMPLEX(dpk), DEVICE ::  idata(:,:,:)
     97          REAL(dpk), DEVICE     ::  odata(:,:,:)
    9698
    9799       END SUBROUTINE CUFFTEXECZ2D
     
    105107
    106108          USE ISO_C_BINDING
     109          USE precision_kind
    107110
    108           INTEGER(C_INT)            ::  plan
    109           REAL(C_DOUBLE)            ::  idata(:,:,:)
    110           COMPLEX(C_DOUBLE_COMPLEX) ::  odata(:,:,:)
     111          INTEGER(C_INT), VALUE ::  plan
     112          REAL(dpk), DEVICE     ::  idata(:,:,:)
     113          COMPLEX(dpk), DEVICE ::  odata(:,:,:)
    111114
    112115       END SUBROUTINE CUFFTEXECD2Z
Note: See TracChangeset for help on using the changeset viewer.