w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-11-22 04:11:16 -05:00
Code Issues Packages Projects Releases Wiki Activity

Merge branch 'release-2.1.0' of bitbucket.org:k1jt/wsjtx into release-2.1.0

Browse Source
This commit is contained in:
Bill Somerville 2019-06-13 18:07:13 +01:00
commit 8572994ed0
No known key found for this signature in database
GPG Key ID: D864B06D1E81618F
1 changed files with 20 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
lib/rtty_spec.f90
View File

@ -53,7 +53,21 @@ program rtty_spec
dat(i)=dat(i) + sig*sin(phi)
enddo
! Add the FT8 signal
! FT8 signal (FSK)
i3=0
n3=0
msg37='WB9XYZ KA2ABC FN42'
call genft8(msg37,i3,n3,msgsent37,msgbits,itone)
nsym=79
nsps=1920
bt=99.0
f0=3500.0
icmplx=0
nwave=nsym*nsps
call gen_ft8wave(itone,nsym,nsps,bt,fsample,f0,cwave,wave,icmplx,nwave)
dat(6001:6000+nwave)=dat(6001:6000+nwave) + sig*wave(1:nwave)
! FT8 signal (GFSK)
i3=0
n3=0
msg37='WB9XYZ KA2ABC FN42'
@ -61,7 +75,7 @@ program rtty_spec
nsym=79
nsps=1920
bt=2.0
f0=3000.0
f0=4000.0
icmplx=0
nwave=nsym*nsps
call gen_ft8wave(itone,nsym,nsps,bt,fsample,f0,cwave,wave,icmplx,nwave)
@ -72,13 +86,15 @@ program rtty_spec
call genft4(msg37,ichk,msgsent37,msgbits,itone)
nsym=103
nsps=576
f0=3500.0
f0=4500.0
icmplx=0
nwave=(nsym+2)*nsps
call gen_ft4wave(itone,nsym,nsps,fsample,f0,cwave,wave,icmplx,nwave)
dat(6001:6000+nwave)=dat(6001:6000+nwave) + sig*wave(1:nwave)
h=default_header(12000,NMAX)
iwave=nint(rms*dat)
datmax=maxval(abs(dat))
iwave=nint(32767.0*dat/datmax)
open(10,file='000000_000001.wav',access='stream',status='unknown')
write(10) h,iwave
close(10)