From 1a08ce3383639376fbfdab404cad69f8ab9a2b71 Mon Sep 17 00:00:00 2001
From: Joe Taylor <k1jt@arrl.org>
Date: Tue, 24 Nov 2015 18:20:45 +0000
Subject: [PATCH] Correct the S/N scale in jt65sim; set some params for
 command-line use of jt9.

git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6172 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
---
 lib/fillcom.f90 | 5 +++--
 lib/jt65sim.f90 | 3 ++-
 2 files changed, 5 insertions(+), 3 deletions(-)

diff --git a/lib/fillcom.f90 b/lib/fillcom.f90
index a60cd5624..2d741b06f 100644
--- a/lib/fillcom.f90
+++ b/lib/fillcom.f90
@@ -18,10 +18,11 @@ subroutine fillcom(nutc0,ndepth0,nrxfreq,mode,tx9,flow,fsplit,fhigh)
   nfa=flow
   nfsplit=fsplit
   nfb=fhigh
-  ntol=3
-  kin=1024
+  ntol=20
+  kin=648000
   nzhsym=181
   ndepth=ndepth0
+  dttol=3.0
   if (tx9) then
     ntxmode=9
   else
diff --git a/lib/jt65sim.f90 b/lib/jt65sim.f90
index 4d00a48ed..2c04ffece 100644
--- a/lib/jt65sim.f90
+++ b/lib/jt65sim.f90
@@ -98,7 +98,8 @@ program jt65sim
            endif
         enddo
 
-        sig=10.0**(0.05*nsnr)
+        bandwidth_ratio=2500.0/6000.0
+        sig=sqrt(2*bandwidth_ratio)*10.0**(0.05*nsnr)
         if(nsnr.gt.90.0) sig=1.0
         write(*,1020) ifile,isig,f0,csubmode,nsnr,sig,msg
 1020    format(i4,i4,f10.3,1x,a1,i5,f8.4,2x,a22)