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 a possible bounds error.

Browse Source
This commit is contained in:
Joe Taylor 2021-02-02 11:39:29 -05:00
parent 14d18306e6
commit 9ca57f9a5c
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lib/qra/q65/q65.f90
View File

@ -449,8 +449,8 @@ subroutine q65_ccf_22(s1,iz,jz,nfqso,ipk,jpk,f0,xdt,ccf2)
if(ccf2(i).lt.3.4) exit !Candidate limit if(ccf2(i).lt.3.4) exit !Candidate limit
f=i*df f=i*df
if(f.ge.(nfqso-ftol) .and. f.le.(nfqso+ftol)) cycle if(f.ge.(nfqso-ftol) .and. f.le.(nfqso+ftol)) cycle
i3=i-67*mode_q65 i3=max(1,i-67*mode_q65)
i4=i+3*mode_q65 i4=min(iz,i+3*mode_q65)
biggest=maxval(ccf2(i3:i4)) biggest=maxval(ccf2(i3:i4))
if(ccf2(i).ne.biggest) cycle if(ccf2(i).ne.biggest) cycle
ncand=ncand+1 ncand=ncand+1

BIN
samples/QRA64/QRA64C/161113_0111.wav
View File

Binary file not shown.