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 command line option -f to set nfqso in jt65 test program.

Browse Source 
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6177 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Steven Franke 2015-11-25 03:27:42 +00:00
parent 33b50da632
commit 65d4d6324c
2 changed files with 10 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lib/Makefile.jt65_osx
View File

@ -35,7 +35,7 @@ OBJS1 = astrosub.o astro0.o astro.o sun.o coord.o tmoonsub.o \
symspec.o analytic.o db.o \ symspec.o analytic.o db.o \
encode232.o interleave9.o\ encode232.o interleave9.o\
entail.o fano232.o gran.o sync9.o decjt9.o \ entail.o fano232.o gran.o sync9.o decjt9.o \
fil3.o decoder.o timer.o \ fil3.o decoder.o timer.o exp_decode65.o fqso_first.o\
twkfreq.o symspec2.o shell.o sync65.o peakup.o slope.o xcor.o\ twkfreq.o symspec2.o shell.o sync65.o peakup.o slope.o xcor.o\
fillcom.o chkss2.o zplot9.o flat1.o flat2.o \ fillcom.o chkss2.o zplot9.o flat1.o flat2.o \
jt65a.o symspec65.o flat65.o ccf65.o decode65a.o \ jt65a.o symspec65.o flat65.o ccf65.o decode65a.o \

15
lib/jt65.f90
View File

@ -13,7 +13,8 @@ logical :: display_help=.false.,err
character(len=500) optarg character(len=500) optarg
common/tracer/limtrace,lu common/tracer/limtrace,lu
equivalence (lenfile,ihdr(2)) equivalence (lenfile,ihdr(2))
type (option) :: long_options(4) = [ & type (option) :: long_options(5) = [ &
option ('freq',.true.,'n','default=1270',''), &
option ('help',.false.,'h','Display this help message',''), & option ('help',.false.,'h','Display this help message',''), &
option ('ntrials',.true.,'n','default=1000',''), & option ('ntrials',.true.,'n','default=1000',''), &
option ('robust sync',.false.,'n','default: disabled',''), & option ('robust sync',.false.,'n','default: disabled',''), &
@ -21,7 +22,7 @@ logical :: display_help=.false.,err
limtrace=0 limtrace=0
lu=12 lu=12
ntol=50 ntol=10
nfqso=1270 nfqso=1270
nagain=0 nagain=0
nsubmode=0 nsubmode=0
@ -32,11 +33,13 @@ n2pass=2
nrobust=0 nrobust=0
do do
call getopt('hn:rs',long_options,c,optarg,narglen,nstat,noffset,nremain,err) call getopt('f:hn:rs',long_options,c,optarg,narglen,nstat,noffset,nremain,err)
if( nstat .ne. 0 ) then if( nstat .ne. 0 ) then
exit exit
end if end if
select case (c) select case (c)
case ('f')
read (optarg(:narglen), *) nfqso
case ('h') case ('h')
display_help = .true. display_help = .true.
case ('n') case ('n')
@ -44,15 +47,15 @@ nrobust=0
case ('r') case ('r')
nrobust=1 nrobust=1
case ('s') case ('s')
nlow=1250 nlow=nfqso-ntol
nhigh=1290 nhigh=nfqso+ntol
n2pass=1 n2pass=1
end select end select
end do end do
nargs=iargc() nargs=iargc()
if(display_help .or. (nargs.lt.1)) then if(display_help .or. (nargs.lt.1)) then
print*,'Usage: jt65 [-n ntrials] [-s] file1 [file2 ...]' print*,'Usage: jt65 [-f freq] [-n ntrials] [-s] file1 [file2 ...]'
print*,' -r robust sync' print*,' -r robust sync'
print*,' -s single-signal mode' print*,' -s single-signal mode'
go to 999 go to 999