Changeset 1111 for palm/trunk/SOURCE/cuda_fft_interfaces.f90
- Timestamp:
- Mar 8, 2013 11:54:10 PM (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/cuda_fft_interfaces.f90
r1107 r1111 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! 22 ! idata and odata changed from 1d- to 3d-arrays 23 23 ! 24 24 ! Former revisions: … … 87 87 88 88 INTEGER(C_INT), value :: plan 89 COMPLEX(dpk), device :: idata( *)90 REAL(dpk), device :: odata( *)89 COMPLEX(dpk), device :: idata(:,:,:) 90 REAL(dpk), device :: odata(:,:,:) 91 91 92 92 END SUBROUTINE CUFFTEXECZ2D … … 103 103 104 104 INTEGER(C_INT), value :: plan 105 REAL(dpk), device :: idata( *)106 COMPLEX(dpk), device :: odata( *)105 REAL(dpk), device :: idata(:,:,:) 106 COMPLEX(dpk), device :: odata(:,:,:) 107 107 108 108 END SUBROUTINE CUFFTEXECD2Z
Note: See TracChangeset
for help on using the changeset viewer.