w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-12-23 19:25:37 -05:00
Code Issues Packages Projects Releases Wiki Activity

One more protection against too-large FTol.

Browse Source
This commit is contained in:
Joe Taylor 2020-12-16 15:51:46 -05:00
parent 7051dc7ee6
commit 6b8abe32b1
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lib/q65_sync.f90
View File

@ -201,6 +201,7 @@ subroutine q65_sync(nutc,iwave,nmax,mode_q65,codewords,ncw,nsps,nfqso,ntol, &
irc=-2
dat4=0
ia=ntol/df
if(i0-ia.lt.1 .or. i0+ia.gt.iz) go to 900
do lag=lag1,lag2
do k=1,85
n=NSTEP*(k-1) + 1