w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-11-22 12:23:37 -05:00
Code Issues Packages Projects Releases Wiki Activity

Fix an oddball result with i*2 numbers: abs(-32768)=-32768.

Browse Source
This commit is contained in:
Joe Taylor 2020-09-12 09:00:39 -04:00
parent 14dad11f2e
commit 263675cac4
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lib/blanker.f90
View File

@ -8,6 +8,8 @@ subroutine blanker(iwave,nz,ndropmax,npct,c_bigfft)
fblank=0.01*npct fblank=0.01*npct
hist=0 hist=0
do i=1,nz do i=1,nz
! ### NB: if iwave(i)=-32768, abs(iwave(i))=-32768 ###
if(iwave(i).eq.-32768) iwave(i)=-32767
n=abs(iwave(i)) n=abs(iwave(i))
hist(n)=hist(n)+1 hist(n)=hist(n)+1
enddo enddo