diff --git a/lib/jt9.f90 b/lib/jt9.f90 index a0ffcda31..68984e33a 100644 --- 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