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

Don't call peakup if we're too close to the edge.

Browse Source
This commit is contained in:
Joe Taylor 2024-02-26 17:15:37 -05:00
parent 376f0d1e53
commit 993705d581
1 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lib/superfox/sfox_sync.f90
View File

@ -95,10 +95,16 @@ subroutine sfox_sync(iwave,fsample,isync,f,t)
ipeak=maxloc(ccf) ipeak=maxloc(ccf)
ipk=ipeak(1)-1+ia ipk=ipeak(1)-1+ia
jpk=ipeak(2)-1+lag1 jpk=ipeak(2)-1+lag1
call peakup(ccf(ipk-1,jpk),ccf(ipk,jpk),ccf(ipk+1,jpk),dxi) dxi=0.
call peakup(ccf(ipk,jpk-1),ccf(ipk,jpk),ccf(ipk,jpk+1),dxj) dxj=0.
if(ipk.gt.ia .and. ipk.lt.ib) then
call peakup(ccf(ipk-1,jpk),ccf(ipk,jpk),ccf(ipk+1,jpk),dxi)
endif
if(jpk.gt.lag1 .and. jpk.lt.lag2) then
call peakup(ccf(ipk,jpk-1),ccf(ipk,jpk),ccf(ipk,jpk+1),dxj)
endif
f=ibest*df + bw/2 + dxi*df f=ibest*df + bw/2 + dxi*df
t=lagbest*dtstep + dxj*dtstep t=lagbest*dtstep + dxj*dtstep
! write(*,4100) ibest,lagbest,f,dxi*df,t,dxj*dtstep ! write(*,4100) ibest,lagbest,f,dxi*df,t,dxj*dtstep