From 354d3bcb1a34ec03bb621f6d0b396ed4b622c6b9 Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Fri, 28 Jun 2024 12:58:28 -0400
Subject: [PATCH] Rescale the output from cwsim.

---
 lib/cwsim.f90 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/cwsim.f90 b/lib/cwsim.f90
index f21d84546..abf83ddfa 100644
--- a/lib/cwsim.f90
+++ b/lib/cwsim.f90
@@ -31,7 +31,7 @@ program cwsim
   call getarg(5,arg)
   read(arg,*) snrdb                  !S/N in dB (2500 hz reference BW)
 
-  rmsdb=25.
+  rmsdb=40.
   rms=10.0**(0.05*rmsdb)
   sig=10.0**(0.05*snrdb)
   twopi=8.0*atan(1.0)
@@ -86,7 +86,7 @@ program cwsim
   endif
 
   dat=aimag(cdat) + xnoise
-  iwave=nint(10*rms*dat)
+  iwave=nint(rms*dat)
   write(10) h,iwave
   close(10)