From d2b4fdad5f2f7c4fd8a7f959a31c2cec87f74875 Mon Sep 17 00:00:00 2001 From: Joe Taylor Date: Wed, 17 Mar 2021 09:23:24 -0400 Subject: [PATCH] Protect against possible bounds error in Q65 snr calculation. --- lib/qra/q65/q65.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lib/qra/q65/q65.f90 b/lib/qra/q65/q65.f90 index 0289039bd..11da4a575 100644 --- a/lib/qra/q65/q65.f90 +++ b/lib/qra/q65/q65.f90 @@ -678,8 +678,8 @@ subroutine q65_snr(dat4,dtdec,f0dec,mode_q65,nused,snr2) i0=nint(f0dec/df) nsum=max(10*mode_q65,nint(50.0/df)) - ia=i0 - 2*nsum - ib=i0 + 2*nsum + ia=max(1,i0-2*nsum) + ib=min(iz0,i0+2*nsum) sum1=sum(spec(ia:ia+nsum-1)) sum2=sum(spec(ib-nsum+1:ib)) avg=(sum1+sum2)/(2.0*nsum)