w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-11-26 06:08:42 -05:00
Code Issues Packages Projects Releases Wiki Activity

Add mode (A,B,C) command-line option.

Browse Source 
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6503 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Steven Franke 2016-02-28 18:08:02 +00:00
parent a0318d3a0a
commit ce24320476
1 changed files with 13 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
lib/jt65.f90
View File

@ -8,7 +8,7 @@ program jt65
use jt65_test use jt65_test
use readwav use readwav
character c character c,mode
logical :: display_help=.false.,nrobust=.false. logical :: display_help=.false.,nrobust=.false.
type(wav_header) :: wav type(wav_header) :: wav
integer*2 id2(NZMAX) integer*2 id2(NZMAX)
@ -17,11 +17,13 @@ program jt65
character(len=500) optarg character(len=500) optarg
character*12 mycall,hiscall character*12 mycall,hiscall
character*6 hisgrid character*6 hisgrid
type (option) :: long_options(11) = [ &
type (option) :: long_options(12) = [ &
option ('aggressive',.true.,'a','aggressiveness [0-10], default AGGR=0','AGGR'), & option ('aggressive',.true.,'a','aggressiveness [0-10], default AGGR=0','AGGR'), &
option ('depth',.true.,'d','depth=5 hinted decoding, default DEPTH=0','DEPTH'), & option ('depth',.true.,'d','depth=5 hinted decoding, default DEPTH=0','DEPTH'), &
option ('freq',.true.,'f','signal frequency, default FREQ=1270','FREQ'), & option ('freq',.true.,'f','signal frequency, default FREQ=1270','FREQ'), &
option ('help',.false.,'h','Display this help message',''), & option ('help',.false.,'h','Display this help message',''), &
option ('mode',.true.,'m','Mode A, B, C. Default is A.','MODE'), &
option ('ntrials',.true.,'n','number of trials, default TRIALS=10000','TRIALS'), & option ('ntrials',.true.,'n','number of trials, default TRIALS=10000','TRIALS'), &
option ('robust-sync',.false.,'r','robust sync',''), & option ('robust-sync',.false.,'r','robust sync',''), &
option ('my-call',.true.,'c','my callsign',''), & option ('my-call',.true.,'c','my callsign',''), &
@ -43,7 +45,7 @@ program jt65
ndepth=0 ndepth=0
do do
call getopt('a:d:f:hn:rc:x:g:X:s',long_options,c,optarg,narglen,nstat,noffset,nremain,.true.) call getopt('a:d:f:hm:n:rc:x:g:X:s',long_options,c,optarg,narglen,nstat,noffset,nremain,.true.)
if( nstat .ne. 0 ) then if( nstat .ne. 0 ) then
exit exit
end if end if
@ -56,6 +58,14 @@ program jt65
read (optarg(:narglen), *) nfqso read (optarg(:narglen), *) nfqso
case ('h') case ('h')
display_help = .true. display_help = .true.
case ('m')
read (optarg(:narglen), *) mode
if( mode .eq. 'b' .or. mode .eq. 'B' ) then
nsubmode=1
endif
if( mode .eq. 'c' .or. mode .eq. 'C' ) then
nsubmode=2
endif
case ('n') case ('n')
read (optarg(:narglen), *) ntrials read (optarg(:narglen), *) ntrials
case ('r') case ('r')