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

Better protection of edge values of ccf array indexes.

Browse Source
This commit is contained in:
Joe Taylor 2024-02-23 14:52:02 -05:00
parent 161f456101
commit 12bda0f84e
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lib/superfox/sfox_sync.f90
View File

@ -34,12 +34,12 @@ subroutine sfox_sync(crcvd,fsample,isync,f,t)
pmax=0. pmax=0.
ntol=100 ntol=100
iz=nint(ntol/df)+2 iz=nint(ntol/df)
i0=nint(1500.0/df) i0=nint(1500.0/df)
ipk=-999 ipk=-999
jpk=-999 jpk=-999
jz=nsz-8*NS jz=nsz-8*NS
allocate(ccf(-iz:iz,1:jz)) allocate(ccf(-iz-1:iz+1,1:jz))
ccf=0. ccf=0.
do j=1,jz do j=1,jz
do i=-iz,iz do i=-iz,iz