From 7d522343715cc4e53b9a72b2df53d5dadf772236 Mon Sep 17 00:00:00 2001 From: Steven Franke Date: Wed, 15 Apr 2020 07:58:31 -0500 Subject: [PATCH] Fix a bug in wspr4 signal generation. --- lib/fsk4hf/gen_wspr4wave.f90 | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/lib/fsk4hf/gen_wspr4wave.f90 b/lib/fsk4hf/gen_wspr4wave.f90 index b19f57bf3..15b266f51 100644 --- a/lib/fsk4hf/gen_wspr4wave.f90 +++ b/lib/fsk4hf/gen_wspr4wave.f90 @@ -7,12 +7,13 @@ subroutine gen_wspr4wave(itone,nsym,nsps,fsample,f0,cwave,wave,icmplx,nwave) integer itone(nsym) logical first data first/.true./ - save pulse,first,twopi,dt,hmod + save pulse,first,twopi,dt,hmod,tsym if(first) then allocate( pulse(3*nsps*fsample) ) twopi=8.0*atan(1.0) dt=1.0/fsample + tsym=nsps/fsample hmod=1.0 ! Compute the smoothed frequency-deviation pulse do i=1,3*nsps @@ -35,7 +36,7 @@ subroutine gen_wspr4wave(itone,nsym,nsps,fsample,f0,cwave,wave,icmplx,nwave) ! Calculate and insert the audio waveform phi=0.0 - dphi = dphi + twopi*f0*dt !Shift frequency up by f0 + dphi = dphi + twopi*(f0-1.5/tsym)*dt !Shift frequency up by f0 wave=0. if(icmplx.eq.1) cwave=0. k=0