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

Allow f0 and xdt to be randomized.

Browse Source
This commit is contained in:
Joe Taylor 2024-01-31 19:35:08 -05:00
parent d9b6691dbf
commit 1296134820
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lib/superfox/synctest.f90
View File

@ -77,6 +77,13 @@ program synctest
enddo
endif
f1=f0
if(f0.eq.0.0) then
f1=1500.0 + 200.0*(ran1(idummy)-0.5)
xdt=2.0*(ran1(idummy)-0.5)
call gen_sfox(idat,f1,fsample,syncwidth,cdat,clo)
endif
crcvd=0.
crcvd(1:NMAX)=cshift(sig*cdat(1:NMAX),-nint(xdt*fsample)) + cnoise
@ -91,7 +98,7 @@ program synctest
! Find signal freq and DT
call sync_sf(crcvd,clo,snrdb,f,t)
ferr=f-f0
ferr=f-f1
terr=t-xdt
if(abs(ferr).lt.10.0 .or. abs(terr).lt.0.02) ngoodsync=ngoodsync+1
@ -104,7 +111,7 @@ program synctest
open(10,file=trim(fname),access='stream',status='unknown')
write(10) h,iwave(1:NMAX) !Save the .wav file
close(10)
write(*,1100) f0,xdt
write(*,1100) f1,xdt
1100 format(/'f0:',f7.1,' xdt:',f6.2)
write(*,1112) f,t
1112 format('f: ',f7.1,' DT:',f6.2)