From 4c84aab38ed9f47cbafd0e5d4f68abed15e1dacf Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Fri, 28 Jun 2024 15:18:59 -0400
Subject: [PATCH] Correct the calculation of sig in cwsim.

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

diff --git a/lib/cwsim.f90 b/lib/cwsim.f90
index abf83ddfa..a5336fbef 100644
--- a/lib/cwsim.f90
+++ b/lib/cwsim.f90
@@ -31,9 +31,9 @@ program cwsim
   call getarg(5,arg)
   read(arg,*) snrdb                  !S/N in dB (2500 hz reference BW)
 
-  rmsdb=40.
-  rms=10.0**(0.05*rmsdb)
-  sig=10.0**(0.05*snrdb)
+  rms=100.0
+  bandwidth_ratio=2500.0/6000.0
+  sig=sqrt(2*bandwidth_ratio)*10.0**(0.05*snrdb)
   twopi=8.0*atan(1.0)
 
   h=default_header(12000,NMAX)