Protect against a possible bounds error in decode1a.

2021-05-07 13:25:02 -04:00 · 2021-05-07 13:25:02 -04:00 · a8753774ca
parent e271696da9
commit a8753774ca
1 changed files with 1 additions and 1 deletions
--- 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)