Ignore:
Timestamp:
Mar 20, 2014 8:40:49 AM (8 years ago)
Author:
raasch
Message:

ONLY-attribute added to USE-statements,
kind-parameters added to all INTEGER and REAL declaration statements,
kinds are defined in new module kinds,
old module precision_kind is removed,
revision history before 2012 removed,
comment fields (!:) to be used for variable explanations added to all variable declaration statements

File:
1 edited

Legend:

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

    r1310 r1320  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! ONLY-attribute added to USE-statements,
     23! kind-parameters added to all INTEGER and REAL declaration statements,
     24! kinds are defined in new module kinds,
     25! old module precision_kind is removed,
     26! revision history before 2012 removed,
     27! comment fields (!:) to be used for variable explanations added to
     28! all variable declaration statements
    2329!
    2430! Former revisions:
     
    5056#if defined ( __cuda_fft )
    5157
    52     INTEGER :: CUFFT_FORWARD = -1,  &
    53                CUFFT_INVERSE =  1,  &
    54                CUFFT_R2C = Z'2a',   &    ! Real to Complex (interleaved)
    55                CUFFT_C2R = Z'2c',   &    ! Complex (interleaved) to Real
    56                CUFFT_C2C = Z'29',   &    ! Complex to Complex, interleaved
    57                CUFFT_D2Z = Z'6a',   &    ! Double to Double-Complex
    58                CUFFT_Z2D = Z'6c',   &    ! Double-Complex to Double
    59                CUFFT_Z2Z = Z'69'         ! Double-Complex to Double-Complex
     58    INTEGER(iwp) ::  CUFFT_FORWARD = -1   !:
     59    INTEGER(iwp) ::  CUFFT_INVERSE =  1   !:
     60    INTEGER(iwp) ::  CUFFT_R2C = Z'2a'    !: Real to Complex (interleaved)
     61    INTEGER(iwp) ::  CUFFT_C2R = Z'2c'    !: Complex (interleaved) to Real
     62    INTEGER(iwp) ::  CUFFT_C2C = Z'29'    !: Complex to Complex, interleaved
     63    INTEGER(iwp) ::  CUFFT_D2Z = Z'6a'    !: Double to Double-Complex
     64    INTEGER(iwp) ::  CUFFT_Z2D = Z'6c'    !: Double-Complex to Double
     65    INTEGER(iwp) ::  CUFFT_Z2Z = Z'69'    !: Double-Complex to Double-Complex
    6066
    6167    PUBLIC
     
    7076          USE ISO_C_BINDING
    7177
    72           INTEGER(C_INT) ::  plan
    73           INTEGER(C_INT), value ::  batch, nx, type
    74 
     78          INTEGER(C_INT)        ::  plan   !:
     79          INTEGER(C_INT), value ::  batch  !:
     80          INTEGER(C_INT), value ::  nx     !:
     81          INTEGER(C_INT), value ::  type   !:
    7582       END SUBROUTINE CUFFTPLAN1D
    7683
     
    97104
    98105          USE ISO_C_BINDING
    99           USE precision_kind
     106          USE kinds
    100107
    101           INTEGER(C_INT), VALUE ::  plan
    102           COMPLEX(dpk), DEVICE  ::  idata(:,:,:)
    103           REAL(dpk), DEVICE     ::  odata(:,:,:)
     108          INTEGER(C_INT), VALUE ::  plan          !:
     109          COMPLEX(dp), DEVICE   ::  idata(:,:,:)  !:
     110          REAL(dp), DEVICE      ::  odata(:,:,:)  !:
    104111
    105112       END SUBROUTINE CUFFTEXECZ2D
     
    113120
    114121          USE ISO_C_BINDING
    115           USE precision_kind
     122         
     123          USE kinds
    116124
    117           INTEGER(C_INT), VALUE ::  plan
    118           REAL(dpk), DEVICE     ::  idata(:,:,:)
    119           COMPLEX(dpk), DEVICE  ::  odata(:,:,:)
     125          INTEGER(C_INT), VALUE ::  plan          !:
     126          REAL(dp), DEVICE      ::  idata(:,:,:)  !:
     127          COMPLEX(dp), DEVICE   ::  odata(:,:,:)  !:
    120128
    121129       END SUBROUTINE CUFFTEXECD2Z
     
    131139
    132140       SUBROUTINE CUFFTdummy( dummy )
     141       
     142          USE kinds
    133143
    134           REAL ::  dummy
     144          REAL(wp) ::  dummy  !:
    135145
    136146       END SUBROUTINE CUFFTdummy
Note: See TracChangeset for help on using the changeset viewer.