FT4 decodes using jt9 from command line now use ndepth=3.

2019-05-21 12:09:17 -04:00 · 2019-05-21 12:09:17 -04:00 · 10aaec90e3
parent 2044b736da
commit 10aaec90e3
1 changed files with 2 additions and 1 deletions
--- a/lib/jt9.f90
+++ b/lib/jt9.f90
@ -157,7 +157,7 @@ program jt9
     end do
     go to 999
  endif
-  
+
  iret=fftwf_init_threads()            !Initialize FFTW threading 

 ! Default to 1 thread, but use nthreads for the big ones
@ -179,6 +179,7 @@ program jt9
     go to 999
  endif

+  if(mode.eq.5) ndepth=3
  allocate(shared_data)
  nflatten=0