- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
I try to parallelize the fft computation in each row of the matrix fu(m,2), but the result is not correct. The following is my code:
type(DFTI_DESCRIPTOR), SAVE,POINTER :: My_FFT_Handle
nthreads=omp_get_max_threads ();
Status = DftiCreateDescriptor(My_FFT_Handle, DFTI_DOUBLE, DFTI_REAL, 1, m)
Status = DftiSetValue (My_FFT_Handle, DFTI_NUMBER_OF_USER_THREADS, nThreads);
Status = DftiCommitDescriptor(My_FFT_Handle)
!$OMP PARALLEL DO
do ic=1,2
Status = DftiComputeForward(My_FFT_Handle,fu(:,ic))
end do
!$OMP END PARALLEL DO
stop
The results of fu(:,2) is sometimes not correct. Whats wrong in the code?
Thank you.
Link Copied
0 Replies
Reply
Topic Options
- Subscribe to RSS Feed
- Mark Topic as New
- Mark Topic as Read
- Float this Topic for Current User
- Bookmark
- Subscribe
- Printer Friendly Page