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

Protect against bounds error.

Browse Source
This commit is contained in:
Joe Taylor 2024-02-27 12:12:14 -05:00
parent 6a59223b70
commit 06d648f1d7
1 changed files with 8 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
lib/superfox/sfox_sync.f90
View File

@ -136,17 +136,15 @@ subroutine sfox_sync(iwave,fsample,isync,f,t,fwidth)
call peakup(s2(ipk-1),s2(ipk),s2(ipk+1),dxi) call peakup(s2(ipk-1),s2(ipk),s2(ipk+1),dxi)
endif endif
f=(ipk+dxi)*df2 + bw/2.0 f=(ipk+dxi)*df2 + bw/2.0
call pctile(s2(ipk-100:ipk+100),201,48,base)
s2=s2-base
! do i=ipk-100,ipk+100
! write(51,3051) i*df2,s2(i)
!3051 format(2f15.3)
! enddo
smax=maxval(s2(ipk-10:ipk+10))
w=count(s2(ipk-10:ipk+10).gt.0.5*smax)
fwidth=0. fwidth=0.
if(w.gt.4.0) fwidth=sqrt(w*w - 4*4)*df2
if(ipk.gt.100 .and. ipk.lt.nfft2/4-100) then
call pctile(s2(ipk-100:ipk+100),201,48,base)
s2=s2-base
smax=maxval(s2(ipk-10:ipk+10))
w=count(s2(ipk-10:ipk+10).gt.0.5*smax)
if(w.gt.4.0) fwidth=sqrt(w*w - 4*4)*df2
endif
return return
end subroutine sfox_sync end subroutine sfox_sync