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)