From 7e24f9be206ea55641080680e02d4f3f16a4bd92 Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Sun, 26 Jul 2020 10:50:05 -0400
Subject: [PATCH] Do not write an FFTW wisdom file if usage message has been
 issued.

---
 lib/jt9.f90 | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/lib/jt9.f90 b/lib/jt9.f90
index 9cfaa9dc7..a08a20cb2 100644
--- a/lib/jt9.f90
+++ b/lib/jt9.f90
@@ -79,7 +79,7 @@ program jt9
   character(len=6) :: mygrid='', hisgrid='EN37'
   common/patience/npatience,nthreads
   common/decstats/ntry65a,ntry65b,n65a,n65b,num9,numfano
-  data npatience/1/,nthreads/1/
+  data npatience/1/,nthreads/1/,wisfile/' '/
 
   iwspr=0
   nsubmode = 0
@@ -325,8 +325,8 @@ program jt9
 999 continue
 ! Output decoder statistics
   call fini_timer ()
-! Save wisdom and free memory
-  iret=fftwf_export_wisdom_to_filename(wisfile)
+! Save FFTW wisdom and free memory
+  if(len(trim(wisfile)).gt.0) iret=fftwf_export_wisdom_to_filename(wisfile)
   call four2a(a,-1,1,1,1)
   call filbig(a,-1,1,0.0,0,0,0,0,0)        !used for FFT plans
   call fftwf_cleanup_threads()