w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-06-25 14:45:14 -04:00
Code Issues Packages Projects Releases Wiki Activity

Fix an out-of-bounds error.

Browse Source
This commit is contained in:
Steven Franke 2020-06-26 07:24:11 -05:00
parent 3d8ea2df5f
commit 37d5af9311
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lib/fst280_decode.f90
View File

@ -520,6 +520,9 @@ contains
s(i)=s(i) + real(c_bigfft(j))**2 + aimag(c_bigfft(j))**2 s(i)=s(i) + real(c_bigfft(j))**2 + aimag(c_bigfft(j))**2
enddo enddo
enddo enddo
if(ina-hmod*3.lt.1) ina=1+hmod*3
if(inb+hmod*3.gt.18000) inb=18000-hmod*3
s2=0.
do i=ina,inb do i=ina,inb
s2(i)=s(i-hmod*3) + s(i-hmod) +s(i+hmod) +s(i+hmod*3) s2(i)=s(i-hmod*3) + s(i-hmod) +s(i+hmod) +s(i+hmod*3)
enddo enddo