From e5ea814bb935572b42b6dfbaccea5774c8cfff75 Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Fri, 15 Feb 2019 08:59:41 -0500
Subject: [PATCH] Destroy FFTW plans when ft4d is finished.

---
 lib/ft4/ft4d.f90 | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/lib/ft4/ft4d.f90 b/lib/ft4/ft4d.f90
index d7583f3cc..12f2fdfc3 100644
--- a/lib/ft4/ft4d.f90
+++ b/lib/ft4/ft4d.f90
@@ -72,8 +72,7 @@ program ft4d
       enddo        !steps
    enddo           !files
 
-   write(*,1120)
-1120 format("<DecodeFinished>")
+   call four2a(xx,-1,1,-1,1)   !Destroy FFTW plans to free their memory
 
 999 end program ft4d