From a8753774caadf9d0f3a23097a0d2d3ddf683537e Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Fri, 7 May 2021 13:25:02 -0400
Subject: [PATCH] Protect against a possible bounds error in decode1a.

---
 map65/libm65/decode1a.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/map65/libm65/decode1a.f90 b/map65/libm65/decode1a.f90
index 8e1f8e25e..d735344af 100644
--- a/map65/libm65/decode1a.f90
+++ b/map65/libm65/decode1a.f90
@@ -105,7 +105,7 @@ subroutine decode1a(dd,newdat,f0,nflip,mode65,nfsample,xpol,            &
 !         do n=1,mode65
      do n=1,1
         do i=1,nfft
-           j=j+1
+           j=min(j+1,NMAX/64)
            c5a(i)=aa*cx(j) + bb*cy(j)
         enddo
         call four2a(c5a,nfft,1,1,1)