From 6b8abe32b1fa6f8acd1242685343847af5d86dae Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Wed, 16 Dec 2020 15:51:46 -0500
Subject: [PATCH] One more protection against too-large FTol.

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

diff --git a/lib/q65_sync.f90 b/lib/q65_sync.f90
index 59f70e68a..90c326230 100644
--- a/lib/q65_sync.f90
+++ b/lib/q65_sync.f90
@@ -201,6 +201,7 @@ subroutine q65_sync(nutc,iwave,nmax,mode_q65,codewords,ncw,nsps,nfqso,ntol,    &
   irc=-2
   dat4=0
   ia=ntol/df
+  if(i0-ia.lt.1 .or. i0+ia.gt.iz) go to 900
   do lag=lag1,lag2
      do k=1,85
         n=NSTEP*(k-1) + 1