From 84591fa2effb6793c7b6d8f361c2d63bf2ab45a5 Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Tue, 8 Dec 2020 11:53:22 -0500
Subject: [PATCH] Protect against a bounds error with very large FTol.

---
 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 3e45f9b56..842f14c94 100644
--- a/lib/q65_sync.f90
+++ b/lib/q65_sync.f90
@@ -135,7 +135,7 @@ subroutine q65_sync(nutc,iwave,nmax,mode_q65,codewords,ncw,nsps,nfqso,ntol,    &
            if(j.ge.1 .and. j.le.jz) then
               do i=-ia,ia
                  ii=i0+mode_q65*itone(k)+i
-                 ccf(i,lag)=ccf(i,lag) + s1(ii,j)
+                 if(ii.ge.1 .and. ii.le.iz) ccf(i,lag)=ccf(i,lag) + s1(ii,j)
               enddo
            endif
         enddo