w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-06-26 15:05:21 -04:00
Code Issues Packages Projects Releases Wiki Activity

Protect against possible bounds error in q65_sync.f90.

Browse Source
This commit is contained in:
Joe Taylor 2023-01-02 13:21:42 -05:00
parent dd243da82a
commit 53bbf4bf23
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
q65w/libq65/q65_sync.f90
View File

@ -25,12 +25,14 @@ subroutine q65_sync(ss,i0,nts_q65,sync_ok,snr,xdt)
endif endif
m=nts_q65/2 m=nts_q65/2
i1=max(1,i0-m)
i2=min(NFFT,i0+m)
ccf=0. ccf=0.
do lag=0,LAGMAX !Search over range of DT do lag=0,LAGMAX !Search over range of DT
do j=1,22 !Test for Q65 sync do j=1,22 !Test for Q65 sync
k=isync(j) + lag k=isync(j) + lag
ccf(lag)=ccf(lag) + sum(ss(k,i0-m:i0+m)) + sum(ss(k+1,i0-m:i0+m)) & ccf(lag)=ccf(lag) + sum(ss(k,i1:i2)) + sum(ss(k+1,i1:i2)) &
+ sum(ss(k+2,i0-m:i0+m)) + sum(ss(k+2,i1:i2))
! Q: Should we use weighted sums, perhaps a Lorentzian peak? ! Q: Should we use weighted sums, perhaps a Lorentzian peak?
enddo enddo
enddo enddo