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

Restrict the search range for SuperFox sync.

Browse Source
This commit is contained in:
Joe Taylor 2024-02-28 13:34:50 -05:00
parent 06d648f1d7
commit 69c4e4acb6
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lib/superfox/sfox_sync.f90
View File

@ -19,7 +19,7 @@ subroutine sfox_sync(iwave,fsample,isync,f,t,fwidth)
df=fsample/nfft df=fsample/nfft
dtstep=istep/fsample dtstep=istep/fsample
fsync=1500.0-bw/2 fsync=1500.0-bw/2
ftol=20.0 ftol=50.0
ia=nint((fsync-ftol)/df) ia=nint((fsync-ftol)/df)
ib=nint((fsync+ftol)/df) ib=nint((fsync+ftol)/df)
lagmax=1.5/dtstep lagmax=1.5/dtstep
@ -128,8 +128,11 @@ subroutine sfox_sync(iwave,fsample,isync,f,t,fwidth)
s2(i)=s2(i) + real(c(i))**2 + aimag(c(i))**2 s2(i)=s2(i) + real(c(i))**2 + aimag(c(i))**2
enddo enddo
enddo enddo
ipeak2=maxloc(s2)
ipk=ipeak2(1)-1 ia=nint((fsync-ftol)/df2)
ib=nint((fsync+ftol)/df2)
ipeak2=maxloc(s2(ia:ib))
ipk=ipeak2(1)-1+ia
dxi=0. dxi=0.
if(ipk.gt.1 .and. ipk.lt.nfft/4) then if(ipk.gt.1 .and. ipk.lt.nfft/4) then