From 2af01ebaa1253b372377d70b6dd745d0fc353002 Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Fri, 18 Sep 2020 15:52:33 -0400
Subject: [PATCH] Fix a flaw in the loop-over NB logic.  There are more flaws!

---
 lib/fst4_decode.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/fst4_decode.f90 b/lib/fst4_decode.f90
index b02cda862..dac3fcc32 100644
--- a/lib/fst4_decode.f90
+++ b/lib/fst4_decode.f90
@@ -244,7 +244,7 @@ contains
       decodes=' '
 
       do inb=inb0,inb1,inb2
-         npct=inb
+         if(nb.lt.0) npct=inb
          call blanker(iwave,nfft1,ndropmax,npct,c_bigfft)
 
 ! The big fft is done once and is used for calculating the smoothed spectrum