From 5c947178ce2f2f97691ed0ec3f2de6cc23b61ab8 Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Mon, 30 Nov 2020 13:26:14 -0500
Subject: [PATCH] Protect against a bounds error.

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

diff --git a/lib/q65_sync.f90 b/lib/q65_sync.f90
index 87ac1fac5..a9d58537d 100644
--- a/lib/q65_sync.f90
+++ b/lib/q65_sync.f90
@@ -153,7 +153,7 @@ subroutine q65_sync(nutc,iwave,nmax,mode_q65,codewords,ncw,nsps,nfqso,ntol,    &
         cycle
      endif
      n=n+1
-     s3(-64:LL-65,n)=s1(ia:ib,j)
+     if(j.ge.1 .and. j.le.jz) s3(-64:LL-65,n)=s1(ia:ib,j)
   enddo
   
   nsubmode=0