From 332ecfebf8e998bf75fc1f0757c8ce7a40834771 Mon Sep 17 00:00:00 2001
From: Bill Somerville <bill@classdesign.com>
Date: Tue, 26 Jan 2021 21:34:10 +0000
Subject: [PATCH] Leave global FFTW3 clean up to main programs

---
 lib/four2a.f90 | 1 -
 1 file changed, 1 deletion(-)

diff --git a/lib/four2a.f90 b/lib/four2a.f90
index 337ca15c3..e7e0e8018 100644
--- a/lib/four2a.f90
+++ b/lib/four2a.f90
@@ -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)