Discourage jt65sim from crashing when 11025 sample rate is selected.

This commit is contained in:
Steve Franke 2018-11-29 10:34:27 -06:00
parent 5741407070
commit 9cebf3a540

View File

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