w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-07-30 20:52:28 -04:00
Code Issues Packages Projects Releases Wiki Activity

Protect against a bounds error.

Browse Source
This commit is contained in:
Joe Taylor 2020-11-30 13:26:14 -05:00
parent de6f5e4975
commit 5c947178ce
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lib/q65_sync.f90
View File

@ -153,7 +153,7 @@ subroutine q65_sync(nutc,iwave,nmax,mode_q65,codewords,ncw,nsps,nfqso,ntol, &
cycle cycle
endif endif
n=n+1 n=n+1
s3(-64:LL-65,n)=s1(ia:ib,j) if(j.ge.1 .and. j.le.jz) s3(-64:LL-65,n)=s1(ia:ib,j)
enddo enddo
nsubmode=0 nsubmode=0