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

One more try, on the ccf index limits.

Browse Source
This commit is contained in:
Joe Taylor 2024-02-23 15:12:19 -05:00
parent 12bda0f84e
commit 7c7a985bfe
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lib/superfox/sfox_sync.f90
View File

@ -39,7 +39,7 @@ subroutine sfox_sync(crcvd,fsample,isync,f,t)
ipk=-999
jpk=-999
jz=nsz-8*NS
allocate(ccf(-iz-1:iz+1,1:jz))
allocate(ccf(-iz:iz,1:jz))
ccf=0.
do j=1,jz
do i=-iz,iz
@ -58,8 +58,12 @@ subroutine sfox_sync(crcvd,fsample,isync,f,t)
enddo
enddo
call peakup(ccf(ipk-1,jpk),ccf(ipk,jpk),ccf(ipk+1,jpk),dxi)
call peakup(ccf(ipk,jpk-1),ccf(ipk,jpk),ccf(ipk,jpk+1),dxj)
dxi=0.
dxj=0.
if(jpk.gt.1 .and. jpk.lt.jz .and. abs(ipk).lt.iz) then
call peakup(ccf(ipk-1,jpk),ccf(ipk,jpk),ccf(ipk+1,jpk),dxi)
call peakup(ccf(ipk,jpk-1),ccf(ipk,jpk),ccf(ipk,jpk+1),dxj)
endif
dfreq=(ipk+dxi)*df
f=1500.0+dfreq