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).
This commit is contained in:
Bill Somerville 2020-10-26 20:20:52 +00:00
parent 66e9102d67
commit befbaa6ae9
No known key found for this signature in database
GPG Key ID: D864B06D1E81618F
1 changed files with 7 additions and 1 deletions

View File

@ -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