w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-07-30 20:52:28 -04:00
Code Issues Packages Projects Releases Wiki Activity

Fix the DT values generated in ft4sim_mult.

Browse Source
This commit is contained in:
Joe Taylor 2019-04-03 12:45:38 -04:00
parent 5aba83b9df
commit b3f62276e7
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
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=18*3456) !Length of .wav file, 62208 i*2 samples parameter (NZZ=65760) !Length of .wav file (4.48+1.0)*12000
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
@ -65,7 +65,7 @@ program ft4sim_mult
nwave0=(NN+2)*NSPS nwave0=(NN+2)*NSPS
call gen_ft4wave(itone,NN,NSPS,12000.0,f0,wave0,nwave0) call gen_ft4wave(itone,NN,NSPS,12000.0,f0,wave0,nwave0)
k0=nint(xdt/dt) k0=nint((xdt+0.5)/dt)
if(k0.lt.1) k0=1 if(k0.lt.1) k0=1
tmp(:k0-1)=0.0 tmp(:k0-1)=0.0
tmp(k0:k0+nwave0-1)=wave0 tmp(k0:k0+nwave0-1)=wave0