w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-05-23 18:02:29 -04:00
Code Issues Packages Projects Releases Wiki Activity

Protect against a bounds error.

Browse Source
This commit is contained in:
Joe Taylor 2023-01-22 21:07:31 -05:00
parent 31bedb8528
commit 4ea595eea1
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
q65w/libq65/getcand2.f90
View File

@ -56,8 +56,8 @@ subroutine getcand2(ss,savg0,nts_q65,nagain,ntol,f0_selected,cand,ncand)
cand(j)%f=fpk cand(j)%f=fpk
cand(j)%xdt=xdt cand(j)%xdt=xdt
cand(j)%snr=snr_sync cand(j)%snr=snr_sync
ia=min(i,i0-nguard) ia=max(1,min(i,i0-nguard))
ib=i0+nbw+nguard ib=min(i0+nbw+nguard,32768)
savg(ia:ib)=0. savg(ia:ib)=0.
if(j.ge.MAX_CANDIDATES) exit if(j.ge.MAX_CANDIDATES) exit
enddo enddo