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

WIP on superfox synctest.

Browse Source
This commit is contained in:
Joe Taylor 2024-01-31 10:47:16 -05:00
parent d100c4e9e0
commit 0d664e4ed1
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lib/superfox/synctest.f90
View File

@ -37,19 +37,21 @@ program synctest
call getarg(4,arg) call getarg(4,arg)
read(arg,*) snrdb read(arg,*) snrdb
nsps=1024
ntrperiod=15 ntrperiod=15
rms=100. rms=100.
fsample=12000.0 !Sample rate (Hz) fsample=12000.0 !Sample rate (Hz)
npts=fsample*ntrperiod !Total samples in .wav file npts=fsample*ntrperiod !Total samples in .wav file
twopi=8.0*atan(1.0) twopi=8.0*atan(1.0)
tsync=2.0
nsync=fsample*tsync
nsym=125 !Number of channel symbols
nsps=1024 nsps=1024
ns1=62
nsync=23
ns2=63
tsync=nsync*nsps/fsample
nsym=125 !Number of channel symbols
nsync=tsync*fsample nsync=tsync*fsample
baud=12000.0/nsps !Keying rate (6.67 baud fot 15-s sequences) baud=12000.0/nsps !Keying rate, 11.719 baud for nsps=1024
h=default_header(12000,npts) h=default_header(12000,npts)
fname='000000_000001.wav' fname='000000_000001.wav'
open(10,file=trim(fname),access='stream',status='unknown') open(10,file=trim(fname),access='stream',status='unknown')