From 6396980de39abb61f94e8b9d2ebe974bfde89590 Mon Sep 17 00:00:00 2001
From: k9an <s.j.franke@icloud.com>
Date: Mon, 25 Jul 2022 09:14:53 -0500
Subject: [PATCH] Fix scaling of waveform in wspr_wav when SNR > 90dB.

---
 lib/wsprd/wspr_wav.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/wsprd/wspr_wav.f90 b/lib/wsprd/wspr_wav.f90
index 99ba70c5d..900ebda48 100644
--- a/lib/wsprd/wspr_wav.f90
+++ b/lib/wsprd/wspr_wav.f90
@@ -40,7 +40,7 @@ subroutine wspr_wav(baud,xdt,h,f0,itone,snrdb,iwave)
     if(maxval(abs(dat)).gt.32767.0) print*,"Warning - data will be clipped."
   else
     datpk=maxval(abs(dat))
-    fac=32767.9/datpk
+    fac=32767.0/datpk
     dat=fac*dat
   endif
   iwave=nint(dat)