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

More WIP on superfox sync.

Browse Source
This commit is contained in:
Joe Taylor 2024-02-26 12:54:31 -05:00
parent 391536f35a
commit 271c2eec6c
1 changed files with 19 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
lib/superfox/sfox_sync.f90
View File

@ -2,7 +2,7 @@ subroutine sfox_sync(iwave,fsample,isync,f,t)
use sfox_mod use sfox_mod
parameter (NSTEP=8) parameter (NSTEP=8)
integer*2 iwave(NMAX) integer*2 iwave(0:NMAX-1)
integer isync(44) integer isync(44)
integer ipeak(1) integer ipeak(1)
complex, allocatable :: c(:) !Work array complex, allocatable :: c(:) !Work array
@ -13,10 +13,11 @@ subroutine sfox_sync(iwave,fsample,isync,f,t)
! character*1 line(-15:15),mark(0:6),c1 ! character*1 line(-15:15),mark(0:6),c1
! data mark/' ','.','-','+','X','$','#'/ ! data mark/' ','.','-','+','X','$','#'/
nh=NFFT1/2 nfft=nsps
nh=nfft/2
istep=NSPS/NSTEP istep=NSPS/NSTEP
jz=(13.5*fsample)/istep jz=(13.5*fsample)/istep
df=fsample/NFFT1 df=fsample/nfft
dtstep=istep/fsample dtstep=istep/fsample
fsync=1500.0-bw/2 fsync=1500.0-bw/2
ftol=20.0 ftol=20.0
@ -33,28 +34,30 @@ subroutine sfox_sync(iwave,fsample,isync,f,t)
allocate(s(0:nh/2,jz)) allocate(s(0:nh/2,jz))
allocate(savg(0:nh/2)) allocate(savg(0:nh/2))
allocate(c(0:NFFT1-1)) allocate(c(0:nfft-1))
allocate(ccf(ia:ib,lag1:lag2)) allocate(ccf(ia:ib,lag1:lag2))
s=0. s=0.
savg=0. savg=0.
fac=1.0/NFFT1 fac=1.0/nfft
! Compute symbol spectra with df=baud/2 and NSTEP steps per symbol. ! Compute symbol spectra with df=baud/2 and NSTEP steps per symbol.
do j=1,jz do j=1,jz
k=(j-1)*istep i1=(j-1)*istep
do i=0,nh-1 i2=i1+nsps-1
c(i)=cmplx(fac*iwave(k+2*i+1),fac*iwave(k+2*i+2)) k=-1
do i=i1,i2,2 !Load iwave data into complex array c0, for r2c FFT
xx=iwave(i)
yy=iwave(i+1)
k=k+1
c(k)=fac*cmplx(xx,yy)
enddo enddo
c(nh:)=0. c(k+1:)=0.
call four2a(c,NFFT1,1,-1,0) !Forward FFT, r2c call four2a(c,nfft,1,-1,0) !r2c FFT
do i=0,nh/2 do i=1,nh/2
p=real(c(i))*real(c(i)) + aimag(c(i))*aimag(c(i)) s(i,j)=real(c(i))**2 + aimag(c(i))**2
s(i,j)=p savg(i)=savg(i) + s(i,j)
savg(i)=savg(i) + p
enddo enddo
ipeak=maxloc(s(ia:ib,j))
! print*,j,ipeak(1)+ia-1
enddo enddo
savg=savg/jz savg=savg/jz