w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-11-10 14:23:31 -05:00
Code Issues Packages Projects Releases Wiki Activity

Protect against a possible bounds error in decode1a.

Browse Source
This commit is contained in:
Joe Taylor 2021-05-07 13:25:02 -04:00
parent e271696da9
commit a8753774ca
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
map65/libm65/decode1a.f90
View File

@ -105,7 +105,7 @@ subroutine decode1a(dd,newdat,f0,nflip,mode65,nfsample,xpol, &
! do n=1,mode65 ! do n=1,mode65
do n=1,1 do n=1,1
do i=1,nfft do i=1,nfft
j=j+1 j=min(j+1,NMAX/64)
c5a(i)=aa*cx(j) + bb*cy(j) c5a(i)=aa*cx(j) + bb*cy(j)
enddo enddo
call four2a(c5a,nfft,1,1,1) call four2a(c5a,nfft,1,1,1)