From 9cebf3a540ea794c85e41b641fae8dad1be64061 Mon Sep 17 00:00:00 2001
From: Steve Franke <s.j.franke@icloud.com>
Date: Thu, 29 Nov 2018 10:34:27 -0600
Subject: [PATCH 1/2] Discourage jt65sim from crashing when 11025 sample rate
 is selected.

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

diff --git a/lib/jt65sim.f90 b/lib/jt65sim.f90
index 13fe62cec..92e5d587e 100644
--- a/lib/jt65sim.f90
+++ b/lib/jt65sim.f90
@@ -297,9 +297,9 @@ program jt65sim
 
      endif
 
-     dat=aimag(cdat) + xnoise                 !Add the generated noise
+     dat(1:npts)=aimag(cdat(1:npts)) + xnoise(1:npts)              !Add the generated noise
      if(snrdb.lt.90.0) then
-       dat=rms*dat(1:npts)
+       dat(1:npts)=rms*dat(1:npts)
      else
        datpk=maxval(abs(dat(1:npts)))
        fac=32766.9/datpk

From 2b0f7a74e75bff0132f77bea2e54fc3f82e4e73c Mon Sep 17 00:00:00 2001
From: Steve Franke <s.j.franke@icloud.com>
Date: Thu, 29 Nov 2018 11:18:48 -0600
Subject: [PATCH 2/2] Remove a diagnostic write statement.

---
 lib/jt65sim.f90 | 1 -
 1 file changed, 1 deletion(-)

diff --git a/lib/jt65sim.f90 b/lib/jt65sim.f90
index 92e5d587e..0e57962ce 100644
--- a/lib/jt65sim.f90
+++ b/lib/jt65sim.f90
@@ -105,7 +105,6 @@ program jt65sim
         end if
      case ('M')
         read (optarg(:narglen), '(A)',err=10) msg
-        write(*,*) msg 
      end select
      cycle
 10   display_help=.true.