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

Fix ft8sim_mult to generate synchronous FT4 signals.

Browse Source
This commit is contained in:
Joe Taylor 2019-04-03 11:48:57 -04:00
parent f24d45cb17
commit 9fe179d396
1 changed files with 10 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lib/ft4/ft4sim_mult.f90
View File

@ -6,7 +6,7 @@ program ft4sim_mult
use packjt77 use packjt77
include 'ft4_params.f90' !FT4 protocol constants include 'ft4_params.f90' !FT4 protocol constants
parameter (NWAVE=NN*NSPS) parameter (NWAVE=NN*NSPS)
parameter (NZZ=15*12000) !Length of .wav file, 180,000 i*2 samples parameter (NZZ=18*3456) !Length of .wav file, 62208 i*2 samples
type(hdr) h !Header for .wav file type(hdr) h !Header for .wav file
character arg*12,fname*17,cjunk*4 character arg*12,fname*17,cjunk*4
character msg37*37,msgsent37*37,c77*77 character msg37*37,msgsent37*37,c77*77
@ -39,7 +39,6 @@ program ft4sim_mult
txt=NZ*dt !Transmission length (s) without ramp up/down txt=NZ*dt !Transmission length (s) without ramp up/down
bandwidth_ratio=2500.0/(fs/2.0) bandwidth_ratio=2500.0/(fs/2.0)
txt=NN*NSPS/12000.0 txt=NN*NSPS/12000.0
xdtmax=10.0 - 0.086
open(10,file='messages.txt',status='old',err=998) open(10,file='messages.txt',status='old',err=998)
do ifile=1,nfiles do ifile=1,nfiles
@ -57,7 +56,7 @@ program ft4sim_mult
if(isnr.lt.-16) isnr=-16 if(isnr.lt.-16) isnr=-16
f0=ifreq*93.75/50.0 f0=ifreq*93.75/50.0
call random_number(r) call random_number(r)
xdt=r*xdtmax xdt=r-0.5
! Source-encode, then get itone() ! Source-encode, then get itone()
i3=-1 i3=-1
n3=-1 n3=-1