Leave global FFTW3 clean up to main programs

This commit is contained in:
Bill Somerville 2021-01-26 21:34:10 +00:00
parent 33db1ec63e
commit bd02e367f2
No known key found for this signature in database
GPG Key ID: D864B06D1E81618F

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)