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

@@ -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

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)