w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-06-17 13:53:24 -04:00
Code Issues Packages Projects Releases Wiki Activity

Allow different lag step sizes in sfox_sync routine.

Browse Source
This commit is contained in:
Joe Taylor 2024-02-11 16:05:31 -05:00
parent 5349ba7dc5
commit 7bf4aaef2e
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lib/superfox/sfox_sync.f90
View File

@ -11,10 +11,11 @@ subroutine sfox_sync(crcvd,clo,nv,f,t)
data mark/' ','.','-','+','X','$'/ data mark/' ','.','-','+','X','$'/
s=0. s=0.
df=12000.0/NFFT !0.366211 df=12000.0/NFFT !0.366211 Hz
lagstep=100
i1=ND1*nsps i1=ND1*nsps
do m=-MMAX,MMAX do m=-MMAX,MMAX
lag=100*m lag=lagstep*m
c(0:nsync-1)=crcvd(i1+1+lag:i1+nsync+lag)*clo(1:nsync) c(0:nsync-1)=crcvd(i1+1+lag:i1+nsync+lag)*clo(1:nsync)
c(nsync:)=0. c(nsync:)=0.
call four2a(c,NFFT,1,-1,1) call four2a(c,NFFT,1,-1,1)
@ -43,7 +44,7 @@ subroutine sfox_sync(crcvd,clo,nv,f,t)
1300 format(f6.3,2x,61a1) 1300 format(f6.3,2x,61a1)
enddo enddo
endif endif
t=ipk(1)/120.0 t=ipk(1)*lagstep/12000.0
dfreq=ipk(2)*df dfreq=ipk(2)*df
f=1500.0+dfreq f=1500.0+dfreq