Changeset 1224 for palm/trunk/SOURCE
- Timestamp:
- Sep 16, 2013 7:27:23 AM (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/cuda_fft_interfaces.f90
r1167 r1224 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! 22 ! dummy interface added to avoid compiler warnings 23 23 ! 24 24 ! Former revisions: … … 120 120 END INTERFACE CUFFTEXECD2Z 121 121 122 #else 123 124 ! 125 !-- Dummy interface to avoid compiler warnings in case of no bublic objects 126 !-- declared 127 INTERFACE CUFFTdummy 128 129 SUBROUTINE CUFFTdummy( dummy ) 130 131 REAL :: dummy 132 133 END SUBROUTINE CUFFTdummy 134 135 END INTERFACE CUFFTdummy 136 122 137 #endif 138 123 139 END MODULE cuda_fft_interfaces
Note: See TracChangeset
for help on using the changeset viewer.