w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2026-07-29 13:34:16 -04:00
Code Issues Packages Projects Releases Wiki Activity

Avoid a potential out-of-bounds error.

Browse Source
This commit is contained in:
Steve Franke
2019-04-30 08:54:42 -05:00
parent b2d6238b63
commit 0a12b34ec5
2 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
lib/ft4/ft4_downsample.f90
+1 -1
View File
@@ -38,7 +38,7 @@ subroutine ft4_downsample(dd,newdata,f0,c)
endif
i0=nint(f0/df)
c1=0.
c1(0)=cx(i0)
if(i0.ge.0 .and. i0.le.NMAX/2) c1(0)=cx(i0)
do i=1,NFFT2/2
if(i0+i.le.NMAX/2) c1(i)=cx(i0+i)
if(i0-i.ge.0) c1(NFFT2-i)=cx(i0-i)