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

Connect minsync in QRA64 decoder.

Browse Source 
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7369 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor 2016-12-08 14:42:50 +00:00
parent b47b4b077b
commit 19f37d098e
2 changed files with 15 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lib/qra64a.f90
View File

@ -61,7 +61,7 @@ subroutine qra64a(dd,npts,nutc,nf1,nf2,nfqso,ntol,mode64,minsync,ndepth, &
call timer('sync64 ',0) call timer('sync64 ',0)
call sync64(dd,npts,nf1,nf2,nfqso,ntol,mode64,maxf1,dtx,f0,jpk0,kpk,sync,c00) call sync64(dd,npts,nf1,nf2,nfqso,ntol,mode64,maxf1,dtx,f0,jpk0,kpk,sync,c00)
call timer('sync64 ',1) call timer('sync64 ',1)
if(sync.lt.3.4) go to 900 if((sync-3.4).lt.float(minsync)) go to 900
a=0. a=0.
a(1)=-f0 a(1)=-f0
nfreq=nint(f0) nfreq=nint(f0)

18
lib/qratest.f90
View File

@ -6,17 +6,22 @@ program qratest
character c*1,label*3 character c*1,label*3
nargs=iargc() nargs=iargc()
if(nargs.lt.1 .or. nargs.gt.3) then if(nargs.lt.1 .or. nargs.gt.4) then
print*,'Usage: qratest nfile [f0 fTol]' print*,'Usage: qratest nfile [sync f0 fTol]'
go to 999 go to 999
endif endif
call getarg(1,arg) call getarg(1,arg)
read(arg,*) nfile read(arg,*) nfile
minsync0=-1
nfqso0=-1
ntol0=-1
if(nargs.gt.1) then if(nargs.gt.1) then
call getarg(2,arg) call getarg(2,arg)
read(arg,*) maxf1 read(arg,*) minsync0
call getarg(3,arg) call getarg(3,arg)
read(arg,*) ntol read(arg,*) nfqso0
call getarg(4,arg)
read(arg,*) ntol0
endif endif
ndepth=3 ndepth=3
nft=99 nft=99
@ -27,6 +32,11 @@ program qratest
read(60,end=999) dd,npts,nutc,nf1,nf2,nfqso,ntol,mode64,minsync,ndepth, & read(60,end=999) dd,npts,nutc,nf1,nf2,nfqso,ntol,mode64,minsync,ndepth, &
mycall,hiscall,hisgrid mycall,hiscall,hisgrid
if(ifile.lt.nfile) cycle if(ifile.lt.nfile) cycle
if(minsync0.ne.-1) minsync=minsync0
if(nfqso0.ne.-1) nfqso=nfqso0
if(ntol0.ne.-1) ntol=ntol0
call qra64a(dd,npts,nutc,nf1,nf2,nfqso,ntol,mode64,minsync,ndepth, & call qra64a(dd,npts,nutc,nf1,nf2,nfqso,ntol,mode64,minsync,ndepth, &
mycall,hiscall,hisgrid,sync,nsnr,dtx,nfreq,decoded,nft) mycall,hiscall,hisgrid,sync,nsnr,dtx,nfreq,decoded,nft)
c='a' c='a'