Protect against a possible bounds error.

2024-11-22 04:11:16 -05:00 · 2021-02-02 11:39:29 -05:00 · 2021-02-02 11:39:29 -05:00 · 9ca57f9a5c
commit 9ca57f9a5c
parent 14d18306e6
2 changed files with 2 additions and 2 deletions
--- a/lib/qra/q65/q65.f90
+++ b/lib/qra/q65/q65.f90
@ -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
     f=i*df
     if(f.ge.(nfqso-ftol) .and. f.le.(nfqso+ftol)) cycle
-     i3=i-67*mode_q65
-     i4=i+3*mode_q65
+     i3=max(1,i-67*mode_q65)
+     i4=min(iz,i+3*mode_q65)
     biggest=maxval(ccf2(i3:i4))
     if(ccf2(i).ne.biggest) cycle
     ncand=ncand+1
--- a/samples/QRA64/QRA64C/161113_0111.wav
+++ b/samples/QRA64/QRA64C/161113_0111.wav