From 2e6a4f597bb4584d4ea28f49fea3af971b14d6b7 Mon Sep 17 00:00:00 2001
From: Brian Moran <brian@trucentive.com>
Date: Mon, 12 Aug 2024 15:42:22 -0700
Subject: [PATCH] additional array sizes needing adjustment

---
 lib/ft8/ft8_a7.f90 | 4 ++--
 lib/ft8_decode.f90 | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/lib/ft8/ft8_a7.f90 b/lib/ft8/ft8_a7.f90
index d32c96348..562176015 100644
--- a/lib/ft8/ft8_a7.f90
+++ b/lib/ft8/ft8_a7.f90
@@ -1,6 +1,6 @@
 module ft8_a7
 
-  parameter(MAXDEC=100)
+  parameter(MAXDEC=200)
 
 ! For the following three arrays
 !    First index   i=decode number in this sequence
@@ -43,7 +43,7 @@ subroutine ft8_a7_save(nutc,dt,f,msg)
 ! Add this decode to current table for this sequence
   ndec(j,1)=ndec(j,1)+1                  !Number of decodes in this sequence
   i=ndec(j,1)                            !i is index of a new table entry
-  if(i.ge.MAXDEC-1) return               !Prevent table overflow
+  if(i.gt.MAXDEC) return                 !Prevent table overflow (indexes start at 1)
 
   dt0(i,j,1)=dt                          !Save dt in table
   f0(i,j,1)=f                            !Save f in table
diff --git a/lib/ft8_decode.f90 b/lib/ft8_decode.f90
index 9fe58e8c5..c7cc2828f 100644
--- a/lib/ft8_decode.f90
+++ b/lib/ft8_decode.f90
@@ -58,7 +58,7 @@ contains
     integer*2 iwave(15*12000)
     integer apsym2(58),aph10(10)
     character datetime*13,msg37*37
-    character*37 allmessages(200)
+    character*37 allmessages(MAX_EARLY)
     character*12 ctime
     integer allsnrs(MAX_EARLY)
     integer itone(NN)