w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-11-25 13:48:42 -05:00
Code Issues Packages Projects Releases Wiki Activity

Prevent some out-of-bounds problems.

Browse Source
This commit is contained in:
Steve Franke 2019-01-27 19:28:41 -06:00
parent 57cf69e6ad
commit d3b1f7e560
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lib/ft4/ft4_decode.f90
View File

@ -64,7 +64,7 @@ subroutine ft4_decode(cdatetime0,nfqso,iwave,ndecodes,mycall,hiscall,nrx,line)
candidate=0.0 candidate=0.0
ncand=0 ncand=0
fa=375.0 fa=400.0
fb=3000.0 fb=3000.0
syncmin=1.2 syncmin=1.2
maxcand=100 maxcand=100
@ -311,8 +311,8 @@ subroutine ft4_downsample(iwave,f0,c)
do i=1,NFFT2/2 do i=1,NFFT2/2
arg=(i-1)*df/bw arg=(i-1)*df/bw
win=exp(-arg*arg) win=exp(-arg*arg)
c1(i)=cx(i0+i)*win if(i0+i.le.NMAX/2) c1(i)=cx(i0+i)*win
c1(NFFT2-i)=cx(i0-i)*win if(i0-i.ge.0) c1(NFFT2-i)=cx(i0-i)*win
enddo enddo
c1=c1/NFFT2 c1=c1/NFFT2
call four2a(c1,NFFT2,1,1,1) !c2c FFT back to time domain call four2a(c1,NFFT2,1,1,1) !c2c FFT back to time domain