w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-02-03 09:44:24 -05:00
Code Issues Packages Projects Releases Wiki Activity

Add -a (aggressiveness) command line option and make ntol=1000 the default.

Browse Source 
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6333 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Steven Franke 2016-01-01 16:34:55 +00:00
parent c7e3fa09e3
commit ca02a5841a
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
lib/jt65.f90
View File

@ -17,7 +17,8 @@ program jt65
character*12 mycall,hiscall
character*6 hisgrid
equivalence (lenfile,ihdr(2))
type (option) :: long_options(9) = [ &
type (option) :: long_options(10) = [ &
option ('aggressive',.true.,'a','aggressiveness [0-10], default AGGR=0','AGGR'), &
option ('freq',.true.,'f','signal frequency, default FREQ=1270','FREQ'), &
option ('help',.false.,'h','Display this help message',''), &
option ('ntrials',.true.,'n','number of trials, default TRIALS=10000','TRIALS'), &
@ -29,22 +30,24 @@ program jt65
,'experience decoding options (1..n), default FLAGS=0','FLAGS'), &
option ('single-signal-mode',.false.,'s','decode at signal frequency only','') ]
ntol=10
naggressive=0
nfqso=1270
nsubmode=0
ntrials=10000
nexp_decoded=0
ntol=1000
nsubmode=0
nlow=200
nhigh=4000
n2pass=2
nexp_decoded=0
naggressive=0
do
call getopt('f:hn:rc:x:g:X:s',long_options,c,optarg,narglen,nstat,noffset,nremain,.true.)
call getopt('a:f:hn:rc:x:g:X:s',long_options,c,optarg,narglen,nstat,noffset,nremain,.true.)
if( nstat .ne. 0 ) then
exit
end if
select case (c)
case ('a')
read (optarg(:narglen), *) naggressive
case ('f')
read (optarg(:narglen), *) nfqso
case ('h')