w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-11-21 11:31:51 -05:00
Code Issues Packages Projects Releases Wiki Activity

Leave global FFTW3 clean up to main programs

Browse Source
This commit is contained in:
Bill Somerville 2021-01-26 21:34:10 +00:00
parent 2335575436
commit 332ecfebf8
No known key found for this signature in database
GPG Key ID: D864B06D1E81618F
1 changed files with 0 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lib/four2a.f90
View File

@ -107,7 +107,6 @@ subroutine four2a(a,nfft,ndim,isign,iform)
!$omp end critical(fftw) !$omp end critical(fftw)
end if end if
enddo enddo
call fftwf_cleanup()
nplan=0 nplan=0
!$omp end critical(four2a) !$omp end critical(four2a)