Fix a flaw in the loop-over NB logic. There are more flaws!

2026-06-16 12:48:42 -04:00 · 2020-09-18 15:52:33 -04:00
parent 327808a0bb
commit 2af01ebaa1
1 changed files with 1 additions and 1 deletions
@@ -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