From 37d5af931170970a6746a800bc839d08d25ca190 Mon Sep 17 00:00:00 2001
From: Steven Franke <s.j.franke@icloud.com>
Date: Fri, 26 Jun 2020 07:24:11 -0500
Subject: [PATCH] Fix an out-of-bounds error.

---
 lib/fst280_decode.f90 | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/lib/fst280_decode.f90 b/lib/fst280_decode.f90
index 3bf470c14..64d2087be 100644
--- a/lib/fst280_decode.f90
+++ b/lib/fst280_decode.f90
@@ -520,6 +520,9 @@ contains
          s(i)=s(i) + real(c_bigfft(j))**2 + aimag(c_bigfft(j))**2
       enddo
    enddo
+   if(ina-hmod*3.lt.1) ina=1+hmod*3
+   if(inb+hmod*3.gt.18000) inb=18000-hmod*3
+   s2=0.
    do i=ina,inb
       s2(i)=s(i-hmod*3) + s(i-hmod) +s(i+hmod) +s(i+hmod*3)
    enddo