w4kek
/
WSJT-X
mirror of https://github.com/saitohirga/WSJT-X.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Add -d depth command-line argument. depth=5 for hinted decoding. 

git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6426 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Steven Franke 2016-01-24 01:45:05 +00:00
parent adb10ebfa7
commit ed2729bd95
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lib/jt65.f90
View File

@ -17,8 +17,9 @@ program jt65
character(len=500) optarg
character*12 mycall,hiscall
character*6 hisgrid
type (option) :: long_options(10) = [ &
type (option) :: long_options(11) = [ &
option ('aggressive',.true.,'a','aggressiveness [0-10], default AGGR=0','AGGR'), &
option ('depth',.true.,'d','depth=5 hinted decoding, default DEPTH=0','DEPTH'), &
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'), &
@ -39,16 +40,18 @@ program jt65
nlow=200
nhigh=4000
n2pass=2
ndepth=5
ndepth=0
do
call getopt('a:f:hn:rc:x:g:X:s',long_options,c,optarg,narglen,nstat,noffset,nremain,.true.)
call getopt('a:d: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 ('d')
read (optarg(:narglen), *) ndepth
case ('f')
read (optarg(:narglen), *) nfqso
case ('h')