w4kek
/
WSJT-X
mirror of https://github.com/saitohirga/WSJT-X.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Leave global FFTW3 clean up to main programs

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)
end if
enddo
call fftwf_cleanup()
nplan=0
!$omp end critical(four2a)