mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-09-30 09:06:38 -04:00
Protect against a bounds error with very large FTol.
This commit is contained in:
parent
9c0fe669d6
commit
84591fa2ef
@ -135,7 +135,7 @@ subroutine q65_sync(nutc,iwave,nmax,mode_q65,codewords,ncw,nsps,nfqso,ntol, &
|
|||||||
if(j.ge.1 .and. j.le.jz) then
|
if(j.ge.1 .and. j.le.jz) then
|
||||||
do i=-ia,ia
|
do i=-ia,ia
|
||||||
ii=i0+mode_q65*itone(k)+i
|
ii=i0+mode_q65*itone(k)+i
|
||||||
ccf(i,lag)=ccf(i,lag) + s1(ii,j)
|
if(ii.ge.1 .and. ii.le.iz) ccf(i,lag)=ccf(i,lag) + s1(ii,j)
|
||||||
enddo
|
enddo
|
||||||
endif
|
endif
|
||||||
enddo
|
enddo
|
||||||
|
Loading…
Reference in New Issue
Block a user