mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-11-25 05:38:46 -05:00
Protect against a possible bounds error in decode1a.
This commit is contained in:
parent
e271696da9
commit
a8753774ca
@ -105,7 +105,7 @@ subroutine decode1a(dd,newdat,f0,nflip,mode65,nfsample,xpol, &
|
||||
! do n=1,mode65
|
||||
do n=1,1
|
||||
do i=1,nfft
|
||||
j=j+1
|
||||
j=min(j+1,NMAX/64)
|
||||
c5a(i)=aa*cx(j) + bb*cy(j)
|
||||
enddo
|
||||
call four2a(c5a,nfft,1,1,1)
|
||||
|
Loading…
Reference in New Issue
Block a user