From a02cbabb994edc7fad8461dd78fc8ea9f0f0eef7 Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Sun, 3 Jan 2021 11:18:14 -0500
Subject: [PATCH] Fix an off-by-1 bug introduced in the previous commit.

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

diff --git a/lib/qra/q65/q65_sync.f90 b/lib/qra/q65/q65_sync.f90
index e04069689..48ca0a727 100644
--- a/lib/qra/q65/q65_sync.f90
+++ b/lib/qra/q65/q65_sync.f90
@@ -167,7 +167,7 @@ subroutine q65_sync(nutc,iwave,ntrperiod,mode_q65,codewords,ncw,nsps,   &
      endif
      n=n+1
      if(j.ge.1 .and. j.le.jz) then
-        do i=0,LL
+        do i=0,LL-1
            s3(i-64,n)=s1(i+i1,j)
         enddo
      endif