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

Clean up sync routine; add 'peakup' in f and t directions.

Browse Source
This commit is contained in:
Joe Taylor 2024-02-23 14:33:11 -05:00
parent 6d72b295c8
commit 577f6f3097
2 changed files with 13 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
lib/superfox/sfox_sync.f90
View File

@ -1,4 +1,4 @@
subroutine sfox_sync(crcvd,fsample,isync,f,t,f1,xdt)
subroutine sfox_sync(crcvd,fsample,isync,f,t)
use sfox_mod
complex crcvd(NMAX) !Signal as received
@ -6,8 +6,8 @@ subroutine sfox_sync(crcvd,fsample,isync,f,t,f1,xdt)
integer isync(50)
real, allocatable :: s(:,:) !Symbol spectra, 1/8 symbol steps
real, allocatable :: ccf(:,:) !
character*1 line(-30:30),mark(0:6)
data mark/' ','.','-','+','X','$','#'/
! character*1 line(-30:30),mark(0:6)
! data mark/' ','.','-','+','X','$','#'/
nh=NFFT1/2 !1024
istep=nh/8 !128
@ -57,26 +57,12 @@ subroutine sfox_sync(crcvd,fsample,isync,f,t,f1,xdt)
enddo
enddo
dfreq=ipk*df
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)
dfreq=(ipk+dxi)*df
f=1500.0+dfreq
t=(jpk-201)*istep/fsample
if(NS.ne.-99) go to 900
t=(jpk+dxj-201.0)*istep/fsample
ferr=f-f1
terr=t-xdt
if(abs(ferr).lt.5.357 .and. abs(terr).lt.0.0233) go to 900
ccf=ccf/pmax
do j=jpk-10,jpk+10
do i=-iz,iz
k=6.001*ccf(i,j)
line(i)=mark(k)
enddo
write(*,1000) j,line(-iz:iz)
1000 format(i5,2x,61a1)
enddo
write(*,1100) ferr,terr
1100 format('ferr:',f7.1,' terr:',f7.2)
900 return
return
end subroutine sfox_sync

8
lib/superfox/sfoxtest.f90
View File

@ -33,8 +33,8 @@ program sfoxtest
! Shortcut: this is OK for NS <= 24 only
data isync(1:24)/ 21, 94, 55,125, 94, 29, 11, 64, 63, 6, &
59, 67, 52, 39,116, 98, 67, 68, 75, 87, &
64, 64, 64, 64/
59, 67, 52, 39,116, 98, 67, 68, 75, 87, &
116, 22,113,105/
nargs=iargc()
if(nargs.ne.11) then
@ -107,9 +107,9 @@ program sfoxtest
rms=100.
baud=fsample/nsps !Keying rate, 11.719 baud for nsps=1024
idum=-1
bandwidth_ratio=2500.0/fsample
fgood0=1.0
! isync(NS-3:NS)=NQ/2 !Set last few sync symbols to NQ/2
! Generate a message
msg0=0
@ -181,7 +181,7 @@ program sfoxtest
else
! Find signal freq and DT
call timer('sync ',0)
call sfox_sync(crcvd,fsample,isync,f,t,f1,xdt)
call sfox_sync(crcvd,fsample,isync,f,t)
call timer('sync ',1)
endif