Skip to content

Commit e702680

Browse files
author
Chung-Lin Tang
committed
Fix Fortran legacy syntax, suggested by Tobias Burnus
1 parent 0429ffa commit e702680

File tree

1 file changed

+6
-6
lines changed

1 file changed

+6
-6
lines changed

cufft.f90

+6-6
Original file line numberDiff line numberDiff line change
@@ -40,12 +40,12 @@ module cufft
4040

4141
! CUFFT Transform Types
4242
enum, bind(C)
43-
enumerator :: CUFFT_R2C = z'2a' ! Real to Complex (interleaved)
44-
enumerator :: CUFFT_C2R = z'2c' ! Complex (interleaved) to Real
45-
enumerator :: CUFFT_C2C = z'29' ! Complex to Complex, interleaved
46-
enumerator :: CUFFT_D2Z = z'6a' ! Double to Double-Complex
47-
enumerator :: CUFFT_Z2D = z'6c' ! Double-Complex to Double
48-
enumerator :: CUFFT_Z2Z = z'69' ! Double-Complex to Double-Complex
43+
enumerator :: CUFFT_R2C = int(z'2a') ! Real to Complex (interleaved)
44+
enumerator :: CUFFT_C2R = int(z'2c') ! Complex (interleaved) to Real
45+
enumerator :: CUFFT_C2C = int(z'29') ! Complex to Complex, interleaved
46+
enumerator :: CUFFT_D2Z = int(z'6a') ! Double to Double-Complex
47+
enumerator :: CUFFT_Z2D = int(z'6c') ! Double-Complex to Double
48+
enumerator :: CUFFT_Z2Z = int(z'69') ! Double-Complex to Double-Complex
4949
end enum
5050

5151
! CUFFT Data Layouts

0 commit comments

Comments
 (0)