Ignore:
Timestamp:
May 10, 2013 2:33:08 PM (8 years ago)
Author:
raasch
Message:

code adjustment of accelerator version for PGI 12.3 / CUDA 5.0

File:
1 edited

Legend:

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

    r1112 r1153  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! code adjustment of data types for CUDA fft required by PGI 12.3 / CUDA 5.0
    2323!
    2424! Former revisions:
     
    8787
    8888          USE ISO_C_BINDING
    89           USE precision_kind
    9089
    91           INTEGER(C_INT), value ::  plan
    92           COMPLEX(dpk), device ::  idata(:,:,:)
    93           REAL(dpk), device     ::  odata(:,:,:)
     90          INTEGER(C_INT)            ::  plan
     91          COMPLEX(C_DOUBLE_COMPLEX) ::  idata(:,:,:)
     92          REAL(C_DOUBLE)            ::  odata(:,:,:)
    9493
    9594       END SUBROUTINE CUFFTEXECZ2D
     
    103102
    104103          USE ISO_C_BINDING
    105           USE precision_kind
    106104
    107           INTEGER(C_INT), value ::  plan
    108           REAL(dpk), device     ::  idata(:,:,:)
    109           COMPLEX(dpk), device ::  odata(:,:,:)
     105          INTEGER(C_INT)            ::  plan
     106          REAL(C_DOUBLE)            ::  idata(:,:,:)
     107          COMPLEX(C_DOUBLE_COMPLEX) ::  odata(:,:,:)
    110108
    111109       END SUBROUTINE CUFFTEXECD2Z
Note: See TracChangeset for help on using the changeset viewer.