w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-08-02 22:22:33 -04:00
Code Issues Packages Projects Releases Wiki Activity

Protect against possible bounds error in Q65 snr calculation.

Browse Source
This commit is contained in:
Joe Taylor 2021-03-17 09:23:24 -04:00
parent 0107901be9
commit d2b4fdad5f
1 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

@ -678,8 +678,8 @@ subroutine q65_snr(dat4,dtdec,f0dec,mode_q65,nused,snr2)
i0=nint(f0dec/df) i0=nint(f0dec/df)
nsum=max(10*mode_q65,nint(50.0/df)) nsum=max(10*mode_q65,nint(50.0/df))
ia=i0 - 2*nsum ia=max(1,i0-2*nsum)
ib=i0 + 2*nsum ib=min(iz0,i0+2*nsum)
sum1=sum(spec(ia:ia+nsum-1)) sum1=sum(spec(ia:ia+nsum-1))
sum2=sum(spec(ib-nsum+1:ib)) sum2=sum(spec(ib-nsum+1:ib))
avg=(sum1+sum2)/(2.0*nsum) avg=(sum1+sum2)/(2.0*nsum)