diff --git a/lib/qra/q65/q65.f90 b/lib/qra/q65/q65.f90 index 151bda712..106df8a3c 100644 --- 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 diff --git a/samples/QRA64/QRA64C/161113_0111.wav b/samples/QRA64/QRA64C/161113_0111.wav deleted file mode 100644 index 03dec21bb..000000000 Binary files a/samples/QRA64/QRA64C/161113_0111.wav and /dev/null differ