mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2025-09-03 21:57:48 -04:00
57 lines
1.3 KiB
Fortran
57 lines
1.3 KiB
Fortran
subroutine q65_sync(ss,i0,nts_q65,sync_ok,snr,xdt)
|
|
|
|
parameter (NFFT=32768)
|
|
parameter (LAGMAX=33)
|
|
real ss(322,NFFT)
|
|
real ccf(0:LAGMAX)
|
|
logical sync_ok
|
|
logical first
|
|
integer isync(22),ipk(1)
|
|
|
|
! Q65 sync symbols
|
|
data isync/1,9,12,13,15,22,23,26,27,33,35,38,46,50,55,60,62,66,69,74,76,85/
|
|
data first/.true./
|
|
save first,isync
|
|
|
|
tstep=2048.0/11025.0 !0.185760 s: 0.5*tsym_jt65, 0.3096*tsym_q65
|
|
if(first) then
|
|
fac=0.6/tstep !3.230
|
|
do i=1,22 !Expand the Q65 sync stride
|
|
isync(i)=nint((isync(i)-1)*fac) + 1
|
|
enddo
|
|
first=.false.
|
|
endif
|
|
|
|
m=nts_q65/2
|
|
ccf=0.
|
|
do lag=0,LAGMAX
|
|
do j=1,22 !Test for Q65 sync
|
|
k=isync(j) + lag
|
|
! ccf=ccf + ss(k,i0) + ss(k+1,i0) + ss(k+2,i0)
|
|
ccf(lag)=ccf(lag) + sum(ss(k,i0-m:i0+m)) + sum(ss(k+1,i0-m:i0+m)) &
|
|
+ sum(ss(k+2,i0-m:i0+m))
|
|
enddo
|
|
enddo
|
|
ccfmax=maxval(ccf)
|
|
ipk=maxloc(ccf)
|
|
lagbest=ipk(1)-1
|
|
xdt=lagbest*tstep - 1.0
|
|
|
|
xsum=0.
|
|
sq=0.
|
|
nsum=0
|
|
do i=0,lagmax
|
|
if(abs(i-lagbest).gt.2) then
|
|
xsum=xsum+ccf(i)
|
|
sq=sq+ccf(i)**2
|
|
nsum=nsum+1
|
|
endif
|
|
enddo
|
|
ave=xsum/nsum
|
|
rms=sqrt(sq/nsum - ave*ave)
|
|
snr=(ccfmax-ave)/rms
|
|
sync_ok=snr.ge.5.0
|
|
|
|
return
|
|
end subroutine q65_sync
|