From 283d7d32e406b7af5a0a32bf1320e672d4c328e7 Mon Sep 17 00:00:00 2001
From: Steven Franke <s.j.franke@icloud.com>
Date: Wed, 2 Mar 2022 11:15:59 -0600
Subject: [PATCH] Fix a bounds error.

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

diff --git a/lib/ft8_decode.f90 b/lib/ft8_decode.f90
index 5f12c63df..b33629738 100644
--- a/lib/ft8_decode.f90
+++ b/lib/ft8_decode.f90
@@ -253,7 +253,7 @@ contains
               index(grid4,'-').gt.0) grid4='    '         
          xdt=dt0(i,jseq,0)
          f1=f0(i,jseq,0)
-         xbase=10.0**(0.1*(sbase(nint(f1/3.125))-40.0))
+         xbase=10.0**(0.1*(sbase(max(1,nint(f1/3.125)))-40.0))
          msg37='                                     '
          call timer('ft8_a7d ',0)
          call ft8_a7d(dd,newdat,call_1,call_2,grid4,xdt,f1,xbase,nharderrors,   &