mirror of https://github.com/saitohirga/WSJT-X.git
Rationalize the "NTol" usage in JT65 single-decode modes.
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6614 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
parent
2babc3c9c7
commit
3b2a918eb0
|
@ -126,8 +126,8 @@ contains
|
||||||
endif
|
endif
|
||||||
df=12000.0/8192.0 !df = 1.465 Hz
|
df=12000.0/8192.0 !df = 1.465 Hz
|
||||||
if(single_decode) then
|
if(single_decode) then
|
||||||
ia=max(1,nint(nfa/df)-100)
|
ia=max(1,nint(nfa/df)-ntol)
|
||||||
ib=min(NSZ,nint(nfb/df)+100)
|
ib=min(NSZ,nint(nfb/df)+ntol)
|
||||||
nz=ib-ia+1
|
nz=ib-ia+1
|
||||||
call lorentzian(savg(ia),nz,a)
|
call lorentzian(savg(ia),nz,a)
|
||||||
baseline=a(1)
|
baseline=a(1)
|
||||||
|
@ -145,6 +145,7 @@ contains
|
||||||
call timer('sync65 ',0)
|
call timer('sync65 ',0)
|
||||||
call sync65(ss,nfa,nfb,naggressive,ntol,nhsym,ca,ncand,0, &
|
call sync65(ss,nfa,nfb,naggressive,ntol,nhsym,ca,ncand,0, &
|
||||||
single_decode)
|
single_decode)
|
||||||
|
|
||||||
call timer('sync65 ',1)
|
call timer('sync65 ',1)
|
||||||
endif
|
endif
|
||||||
if(ncand.gt.50) robust=.true.
|
if(ncand.gt.50) robust=.true.
|
||||||
|
|
|
@ -49,7 +49,8 @@ subroutine sync65(ss,nfa,nfb,naggressive,ntol,nhsym,ca,ncand,nrobust, &
|
||||||
do i=ia,ib
|
do i=ia,ib
|
||||||
freq=i*df
|
freq=i*df
|
||||||
itry=0
|
itry=0
|
||||||
if(naggressive.gt.0 .and. ntol.lt.1000 .and. ccfmax.ge.thresh0) then
|
! if(naggressive.gt.0 .and. ntol.lt.1000 .and. ccfmax.ge.thresh0) then
|
||||||
|
if(naggressive.gt.0 .and. ccfmax.ge.thresh0) then
|
||||||
if(i.ne.ipk) cycle
|
if(i.ne.ipk) cycle
|
||||||
itry=1
|
itry=1
|
||||||
ncand=ncand+1
|
ncand=ncand+1
|
||||||
|
|
Loading…
Reference in New Issue