From ed2729bd95cf5bbe3ea00f0300d65e7def4d1435 Mon Sep 17 00:00:00 2001 From: Steven Franke Date: Sun, 24 Jan 2016 01:45:05 +0000 Subject: [PATCH] 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 --- lib/jt65.f90 | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/lib/jt65.f90 b/lib/jt65.f90 index 40b6c4c60..c857b9017 100644 --- a/lib/jt65.f90 +++ b/lib/jt65.f90 @@ -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')