Changeset 1166


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

Location:
palm/trunk/SOURCE
Files:
2 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
  • palm/trunk/SOURCE/fft_xy.f90

    r1154 r1166  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! C_DOUBLE/COMPLEX reset to dpk
    2323!
    2424! Former revisions:
     
    288288#elif defined( __cuda_fft )
    289289       !$acc declare create( ar_tmp )
    290        COMPLEX(C_DOUBLE_COMPLEX), DIMENSION(0:(nx+1)/2,nys_x:nyn_x,nzb_x:nzt_x) ::  ar_tmp
     290       COMPLEX(dpk), DIMENSION(0:(nx+1)/2,nys_x:nyn_x,nzb_x:nzt_x) ::  ar_tmp
    291291#endif
    292292       REAL, DIMENSION(0:nx,nys_x:nyn_x,nzb_x:nzt_x) ::  ar
     
    799799#elif defined( __cuda_fft )
    800800       !$acc declare create( ar_tmp )
    801        COMPLEX(C_DOUBLE_COMPLEX), DIMENSION(0:(ny+1)/2,nxl_y:nxr_y,nzb_y:nzt_y) ::  ar_tmp
     801       COMPLEX(dpk), DIMENSION(0:(ny+1)/2,nxl_y:nxr_y,nzb_y:nzt_y) ::  ar_tmp
    802802#endif
    803803       REAL, DIMENSION(0:ny,nxl_y:nxr_y,nzb_y:nzt_y) ::  ar
Note: See TracChangeset for help on using the changeset viewer.