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)