w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-11-03 13:30:52 -05:00
Code Issues Packages Projects Releases Wiki Activity

Rearrange a few lines of code.

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

19
lib/superfox/synctest.f90
View File

@ -47,6 +47,16 @@ program synctest
idummy=0
bandwidth_ratio=2500.0/6000.0
! Generate random data symbols
do i=1,ND
call random_number(r)
if(nran.eq.1) r=ran1(idummy)
idat(i)=128*r
enddo
! Generate cdat (SuperFox waveform) and clo (LO for sync detection)
call gen_sfox(idat,f0,fsample,syncwidth,cdat,clo)
do isnr=0,-30,-1
snr=isnr
if(snrdb.ne.0.0) snr=snrdb
@ -56,12 +66,6 @@ program synctest
ngood=0
do ifile=1,nfiles
do i=1,ND
call random_number(r)
if(nran.eq.1) r=ran1(idummy)
idat(i)=128*r
enddo
xnoise=0.
cnoise=0.
if(snr.lt.90) then
@ -73,9 +77,6 @@ program synctest
enddo
endif
!Generate cdat (SuperFox waveform) and clo (LO needed for sync detection)
call gen_sfox(idat,f0,fsample,syncwidth,cdat,clo)
crcvd=0.
crcvd(1:NMAX)=cshift(sig*cdat(1:NMAX),-nint(xdt*fsample)) + cnoise