w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-08-03 14:42:25 -04:00
Code Issues Packages Projects Releases Wiki Activity

Code cleanup.

Browse Source
This commit is contained in:
Joe Taylor 2024-01-31 12:18:31 -05:00
parent a7ea051cb0
commit 245d63d980
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lib/superfox/synctest.f90
View File

@ -61,22 +61,23 @@ program synctest
sig=sqrt(2*bandwidth_ratio)*10.0**(0.05*snrdb) sig=sqrt(2*bandwidth_ratio)*10.0**(0.05*snrdb)
if(snrdb.gt.90.0) sig=1.0 if(snrdb.gt.90.0) sig=1.0
!Generate cdat (SuperFox waveform) and clo (LO needed for sync detection)
call gen_sfox(f0,fsample,syncwidth,cdat,clo) call gen_sfox(f0,fsample,syncwidth,cdat,clo)
cdat=sig*cdat
crcvd=0.
crcvd(1:NMAX)=cshift(cdat(1:NMAX),-nint(xdt*fsample)) + cnoise
dat=aimag(cdat(1:NMAX)) + xnoise !Add generated AWGN noise crcvd=0.
crcvd(1:NMAX)=cshift(sig*cdat(1:NMAX),-nint(xdt*fsample)) + cnoise
dat=aimag(sig*cdat(1:NMAX)) + xnoise !Add generated AWGN noise
fac=32767.0 fac=32767.0
if(snrdb.ge.90.0) iwave(1:NMAX)=nint(fac*dat(1:NMAX)) if(snrdb.ge.90.0) iwave(1:NMAX)=nint(fac*dat(1:NMAX))
if(snrdb.lt.90.0) iwave(1:NMAX)=nint(rms*dat(1:NMAX)) if(snrdb.lt.90.0) iwave(1:NMAX)=nint(rms*dat(1:NMAX))
write(10) h,iwave(1:NMAX) !Save the .wav file write(10) h,iwave(1:NMAX) !Save the .wav file
close(10) close(10)
if(fspread.ne.0 .or. delay.ne.0) call watterson(crcvd,NMAX,NZ,fsample, & if(fspread.ne.0 .or. delay.ne.0) call watterson(crcvd,NMAX,NZ,fsample, &
delay,fspread) delay,fspread)
! Use the sync waveform to find signal freq and DT
ccf=0. ccf=0.
df=12000.0/NFFT !0.366211 df=12000.0/NFFT !0.366211
i1=ND1*nsps i1=ND1*nsps