w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-05-29 04:42:28 -04:00
Code Issues Packages Projects Releases Wiki Activity

Allow command-line argument for "nQSOProgress" in jt9.

Browse Source
This commit is contained in:
Joe Taylor 2020-06-30 10:35:13 -04:00
parent 023e09bc4d
commit 2a74e5a5de
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lib/jt9.f90
View File

@ -23,10 +23,10 @@ program jt9
character wisfile*80 character wisfile*80
!### ndepth was defined as 60001. Why??? !### ndepth was defined as 60001. Why???
integer :: arglen,stat,offset,remain,mode=0,flow=200,fsplit=2700, & integer :: arglen,stat,offset,remain,mode=0,flow=200,fsplit=2700, &
fhigh=4000,nrxfreq=1500,ndepth=1,nexp_decode=0 fhigh=4000,nrxfreq=1500,ndepth=1,nexp_decode=0,nQSOProg=0
logical :: read_files = .true., tx9 = .false., display_help = .false., & logical :: read_files = .true., tx9 = .false., display_help = .false., &
bLowSidelobes = .false. bLowSidelobes = .false.
type (option) :: long_options(27) = [ & type (option) :: long_options(28) = [ &
option ('help', .false., 'h', 'Display this help message', ''), & option ('help', .false., 'h', 'Display this help message', ''), &
option ('shmem',.true.,'s','Use shared memory for sample data','KEY'), & option ('shmem',.true.,'s','Use shared memory for sample data','KEY'), &
option ('tr-period', .true., 'p', 'Tx/Rx period, default SECONDS=60', & option ('tr-period', .true., 'p', 'Tx/Rx period, default SECONDS=60', &
@ -58,9 +58,11 @@ program jt9
option ('ft8', .false., '8', 'FT8 mode', ''), & option ('ft8', .false., '8', 'FT8 mode', ''), &
option ('jt9', .false., '9', 'JT9 mode', ''), & option ('jt9', .false., '9', 'JT9 mode', ''), &
option ('qra64', .false., 'q', 'QRA64 mode', ''), & option ('qra64', .false., 'q', 'QRA64 mode', ''), &
option ('QSOprog', .true., 'Q', 'QSO progress (0-5), default PROGRESS=1',&
'QSOprogress'), &
option ('sub-mode', .true., 'b', 'Sub mode, default SUBMODE=A', 'A'), & option ('sub-mode', .true., 'b', 'Sub mode, default SUBMODE=A', 'A'), &
option ('depth', .true., 'd', & option ('depth', .true., 'd', &
'JT9 decoding depth (1-3), default DEPTH=1', 'DEPTH'), & 'Decoding depth (1-3), default DEPTH=1', 'DEPTH'), &
option ('tx-jt9', .false., 'T', 'Tx mode is JT9', ''), & option ('tx-jt9', .false., 'T', 'Tx mode is JT9', ''), &
option ('my-call', .true., 'c', 'my callsign', 'CALL'), & option ('my-call', .true., 'c', 'my callsign', 'CALL'), &
option ('my-grid', .true., 'G', 'my grid locator', 'GRID'), & option ('my-grid', .true., 'G', 'my grid locator', 'GRID'), &
@ -82,7 +84,7 @@ program jt9
TRperiod=60.d0 TRperiod=60.d0
do do
call getopt('hs:e:a:b:r:m:p:d:f:w:t:987654qTL:S:H:c:G:x:g:X:', & call getopt('hs:e:a:b:r:m:p:d:f:w:t:987654qTL:S:H:c:G:x:g:X:Q:', &
long_options,c,optarg,arglen,stat,offset,remain,.true.) long_options,c,optarg,arglen,stat,offset,remain,.true.)
if (stat .ne. 0) then if (stat .ne. 0) then
exit exit
@ -117,6 +119,8 @@ program jt9
read (optarg(:arglen), *) fhigh read (optarg(:arglen), *) fhigh
case ('q') case ('q')
mode = 164 mode = 164
case ('Q')
read (optarg(:arglen), *) nQSOProg
case ('4') case ('4')
mode = 4 mode = 4
case ('5') case ('5')
@ -260,7 +264,7 @@ program jt9
if(mode.eq.164 .and. nsubmode.lt.100) nsubmode=nsubmode+100 if(mode.eq.164 .and. nsubmode.lt.100) nsubmode=nsubmode+100
shared_data%params%naggressive=0 shared_data%params%naggressive=0
shared_data%params%n2pass=2 shared_data%params%n2pass=2
! shared_data%params%nranera=8 !### ntrials=10000 shared_data%params%nQSOprogress=nQSOProg
shared_data%params%nranera=6 !### ntrials=3000 shared_data%params%nranera=6 !### ntrials=3000
shared_data%params%nrobust=.false. shared_data%params%nrobust=.false.
shared_data%params%nexp_decode=nexp_decode shared_data%params%nexp_decode=nexp_decode