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

Add new command line options to the standalone jt65 test program

Browse Source 
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6287 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Bill Somerville 2015-12-17 10:43:07 +00:00
parent 256feedd95
commit 8668d37d9e
1 changed files with 18 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
lib/jt65.f90
View File

@ -11,13 +11,19 @@ program jt65
real*4 dd(NZMAX) real*4 dd(NZMAX)
character*80 infile character*80 infile
character(len=500) optarg character(len=500) optarg
character*6 mycall,hiscall,hisgrid
common/tracer/limtrace,lu common/tracer/limtrace,lu
equivalence (lenfile,ihdr(2)) equivalence (lenfile,ihdr(2))
type (option) :: long_options(5) = [ & type (option) :: long_options(9) = [ &
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 ('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 ('his-call',.true.,'d','his callsign',''), &
option ('his-grid',.true.,'g','his grid locator',''), &
option ('experience-decoding',.true.,'e' &
,'experience decoding options (1..n), default FLAGS=0','FLAGS'), &
option ('single-signal-mode',.false.,'s','decode at signal frequency only','') ] option ('single-signal-mode',.false.,'s','decode at signal frequency only','') ]
limtrace=0 limtrace=0
@ -31,9 +37,10 @@ nlow=200
nhigh=4000 nhigh=4000
n2pass=2 n2pass=2
nrobust=0 nrobust=0
nexp_decoded=0
do do
call getopt('f:hn:rs',long_options,c,optarg,narglen,nstat,noffset,nremain,.true.) call getopt('f:hn:rc:d:g: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
@ -46,6 +53,14 @@ nrobust=0
read (optarg(:narglen), *) ntrials read (optarg(:narglen), *) ntrials
case ('r') case ('r')
nrobust=1 nrobust=1
case ('c')
read (optarg(:narglen), *) mycall
case ('d')
read (optarg(:narglen), *) hiscall
case ('g')
read (optarg(:narglen), *) hisgrid
case ('e')
read (optarg(:narglen), *) nexp_decoded
case ('s') case ('s')
nlow=nfqso-ntol nlow=nfqso-ntol
nhigh=nfqso+ntol nhigh=nfqso+ntol
@ -95,7 +110,7 @@ nrobust=0
call jt65a(dd,npts,newdat,nutc,nfa,nfb,nfqso,ntol,nsubmode, & call jt65a(dd,npts,newdat,nutc,nfa,nfb,nfqso,ntol,nsubmode, &
minsync,nagain,n2pass,nrobust,ntrials, naggressive,ndepth, & minsync,nagain,n2pass,nrobust,ntrials, naggressive,ndepth, &
nexp_decoded,ndecoded) mycall,hiscall,hisgrid,nexp_decoded,ndecoded)
call timer('jt65a ',1) call timer('jt65a ',1)
enddo enddo