w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-05-24 02:12:37 -04:00
Code Issues Packages Projects Releases Wiki Activity

Fix scaling of waveform in wspr_wav when SNR > 90dB.

Browse Source
This commit is contained in:
k9an 2022-07-25 09:14:53 -05:00
parent 45532ed55c
commit 6396980de3
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lib/wsprd/wspr_wav.f90
View File

@ -40,7 +40,7 @@ subroutine wspr_wav(baud,xdt,h,f0,itone,snrdb,iwave)
if(maxval(abs(dat)).gt.32767.0) print*,"Warning - data will be clipped." if(maxval(abs(dat)).gt.32767.0) print*,"Warning - data will be clipped."
else else
datpk=maxval(abs(dat)) datpk=maxval(abs(dat))
fac=32767.9/datpk fac=32767.0/datpk
dat=fac*dat dat=fac*dat
endif endif
iwave=nint(dat) iwave=nint(dat)