Changeset 1320 for palm/trunk/SOURCE/cuda_fft_interfaces.f90
 Timestamp:
 Mar 20, 2014 8:40:49 AM (8 years ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

palm/trunk/SOURCE/cuda_fft_interfaces.f90
r1310 r1320 20 20 ! Current revisions: 21 21 !  22 ! 22 ! ONLYattribute added to USEstatements, 23 ! kindparameters 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 23 29 ! 24 30 ! Former revisions: … … 50 56 #if defined ( __cuda_fft ) 51 57 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 Real56 CUFFT_C2C = Z'29', & !Complex to Complex, interleaved57 CUFFT_D2Z = Z'6a', & !Double to DoubleComplex58 CUFFT_Z2D = Z'6c', & !DoubleComplex to Double59 CUFFT_Z2Z = Z'69' !DoubleComplex to DoubleComplex58 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 DoubleComplex 64 INTEGER(iwp) :: CUFFT_Z2D = Z'6c' !: DoubleComplex to Double 65 INTEGER(iwp) :: CUFFT_Z2Z = Z'69' !: DoubleComplex to DoubleComplex 60 66 61 67 PUBLIC … … 70 76 USE ISO_C_BINDING 71 77 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 !: 75 82 END SUBROUTINE CUFFTPLAN1D 76 83 … … 97 104 98 105 USE ISO_C_BINDING 99 USE precision_kind106 USE kinds 100 107 101 INTEGER(C_INT), VALUE :: plan 102 COMPLEX(dp k), DEVICE :: idata(:,:,:)103 REAL(dp k), DEVICE :: odata(:,:,:)108 INTEGER(C_INT), VALUE :: plan !: 109 COMPLEX(dp), DEVICE :: idata(:,:,:) !: 110 REAL(dp), DEVICE :: odata(:,:,:) !: 104 111 105 112 END SUBROUTINE CUFFTEXECZ2D … … 113 120 114 121 USE ISO_C_BINDING 115 USE precision_kind 122 123 USE kinds 116 124 117 INTEGER(C_INT), VALUE :: plan 118 REAL(dp k), DEVICE :: idata(:,:,:)119 COMPLEX(dp k), DEVICE :: odata(:,:,:)125 INTEGER(C_INT), VALUE :: plan !: 126 REAL(dp), DEVICE :: idata(:,:,:) !: 127 COMPLEX(dp), DEVICE :: odata(:,:,:) !: 120 128 121 129 END SUBROUTINE CUFFTEXECD2Z … … 131 139 132 140 SUBROUTINE CUFFTdummy( dummy ) 141 142 USE kinds 133 143 134 REAL :: dummy144 REAL(wp) :: dummy !: 135 145 136 146 END SUBROUTINE CUFFTdummy
Note: See TracChangeset
for help on using the changeset viewer.