w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-11-25 21:58:38 -05:00
Code Issues Packages Projects Releases Wiki Activity

Protect against pathological combinations of RxFreq and FTol.

Browse Source
This commit is contained in:
Joe Taylor 2020-12-09 13:45:05 -05:00
parent 5b59633b2f
commit cd95df4089
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lib/q65_sync.f90
View File

@ -36,6 +36,7 @@ subroutine q65_sync(nutc,iwave,nmax,mode_q65,codewords,ncw,nsps,nfqso,ntol, &
data sync(1)/99.0/ data sync(1)/99.0/
save sync save sync
snr1=0.
id1=0 id1=0
dat4=0 dat4=0
LL=64*(2+mode_q65) LL=64*(2+mode_q65)
@ -86,6 +87,7 @@ subroutine q65_sync(nutc,iwave,nmax,mode_q65,codewords,ncw,nsps,nfqso,ntol, &
enddo enddo
i0=nint(nfqso/df) !Target QSO frequency i0=nint(nfqso/df) !Target QSO frequency
if(i0-64.lt.1 .or. i0-65+LL.gt.iz) go to 900
call pctile(s1(i0-64:i0-65+LL,1:jz),LL*jz,40,base) call pctile(s1(i0-64:i0-65+LL,1:jz),LL*jz,40,base)
s1=s1/base s1=s1/base