w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-11-03 21:40:52 -05:00
Code Issues Packages Projects Releases Wiki Activity

Tweaks to sfox_sync routine.

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

3
lib/superfox/sfox_sync.f90
View File

@ -34,12 +34,13 @@ subroutine sfox_sync(crcvd,fsample,isync,f,t)
pmax=0. pmax=0.
ntol=100 ntol=100
iz=nint(ntol/df) iz=nint(ntol/df)+2
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:iz,1:jz))
ccf=0.
do j=1,jz do j=1,jz
do i=-iz,iz do i=-iz,iz
p=0. p=0.