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

Fix ft4sim_mult for 7.5 s T/R sequences.

Browse Source
This commit is contained in:
Joe Taylor 2019-05-23 14:06:00 -04:00
parent dfedc40db1
commit 2ab4b59d88
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
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=65760) !Length of .wav file (4.48+1.0)*12000 parameter (NZZ=72576) !Length of .wav file (21*3456)
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
@ -55,8 +55,8 @@ program ft4sim_mult
read(10,1003,end=100) cjunk,isnr,xdt0,ifreq,msg37 read(10,1003,end=100) cjunk,isnr,xdt0,ifreq,msg37
1003 format(a4,30x,i3,f5.1,i5,1x,a37) 1003 format(a4,30x,i3,f5.1,i5,1x,a37)
if(cjunk.eq.'File') go to 100 if(cjunk.eq.'File') go to 100
if(isnr.lt.-16) isnr=-16 if(isnr.lt.-17) isnr=-17
f0=ifreq*93.75/50.0 f0=ifreq*960.0/576.0
call random_number(r) call random_number(r)
xdt=r-0.5 xdt=r-0.5
! Source-encode, then get itone() ! Source-encode, then get itone()