From 263675cac4db44f6cfe938455d0950cf8390e67a Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Sat, 12 Sep 2020 09:00:39 -0400
Subject: [PATCH] Fix an oddball result with i*2 numbers: abs(-32768)=-32768.

---
 lib/blanker.f90 | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/lib/blanker.f90 b/lib/blanker.f90
index 6dd496f81..65c8f8fe6 100644
--- a/lib/blanker.f90
+++ b/lib/blanker.f90
@@ -8,6 +8,8 @@ subroutine blanker(iwave,nz,ndropmax,npct,c_bigfft)
   fblank=0.01*npct
   hist=0
   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))
      hist(n)=hist(n)+1
   enddo