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