w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-11-04 16:31:17 -05:00
Code Issues Packages Projects Releases Wiki Activity

Merge branch 'hotfix-2.0.0-rc6' of bitbucket.org:k1jt/wsjtx into hotfix-2.0.0-rc6

Browse Source
This commit is contained in:
Joe Taylor 2018-11-30 08:57:33 -05:00
commit f0feefcfc4
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lib/jt65sim.f90
View File

@ -105,7 +105,6 @@ program jt65sim
end if end if
case ('M') case ('M')
read (optarg(:narglen), '(A)',err=10) msg read (optarg(:narglen), '(A)',err=10) msg
write(*,*) msg
end select end select
cycle cycle
10 display_help=.true. 10 display_help=.true.
@ -297,9 +296,9 @@ program jt65sim
endif 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 if(snrdb.lt.90.0) then
dat=rms*dat(1:npts) dat(1:npts)=rms*dat(1:npts)
else else
datpk=maxval(abs(dat(1:npts))) datpk=maxval(abs(dat(1:npts)))
fac=32766.9/datpk fac=32766.9/datpk