From befbaa6ae9902e533b6ae52be31a5404b476f134 Mon Sep 17 00:00:00 2001
From: Bill Somerville <bill@classdesign.com>
Date: Mon, 26 Oct 2020 20:20:52 +0000
Subject: [PATCH] Reasonable default values for NB setting for command line jt9

Use the -X command option to set  single decode mode and to set the NB
level.

    -X 256*(n+3)+s

Where s=32  selects single decode mode,  and 'n' is the  equivalent NB
setting as used in the WSJT-X UI.  Default for both is zero in FST4(W)
mode if no -X option is passed. E.g. -X 544 selects single decode with
NB=-1 (256*(-1+3)+32).
---
 lib/jt9.f90 | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/lib/jt9.f90 b/lib/jt9.f90
index 81013f1b6..77ad5b9fd 100644
--- a/lib/jt9.f90
+++ b/lib/jt9.f90
@@ -25,7 +25,7 @@ program jt9
   integer :: arglen,stat,offset,remain,mode=0,flow=200,fsplit=2700,          &
        fhigh=4000,nrxfreq=1500,ndepth=1,nexp_decode=0,nQSOProg=0
   logical :: read_files = .true., tx9 = .false., display_help = .false.,     &
-       bLowSidelobes = .false.
+       bLowSidelobes = .false., nexp_decode_set = .false.
   type (option) :: long_options(30) = [                                      &
     option ('help', .false., 'h', 'Display this help message', ''),          &
     option ('shmem',.true.,'s','Use shared memory for sample data','KEY'),   &
@@ -158,6 +158,7 @@ program jt9
            read (optarg(:arglen), *) hisgrid
         case ('X')
            read (optarg(:arglen), *) nexp_decode
+           nexp_decode_set = .true.
      end select
   end do
   
@@ -207,6 +208,11 @@ program jt9
   else
      ntol = min (ntol, 1000)
   end if
+  if (.not. nexp_decode_set) then
+     if (mode .eq. 240 .or. mode .eq. 241) then
+        nexp_decode = 3 * 256   ! single decode off and nb=0
+     end if
+  end if
   allocate(shared_data)
   nflatten=0
   do iarg = offset + 1, offset + remain