From cd95df4089a22ba66f9de25785903e98dfe1e843 Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Wed, 9 Dec 2020 13:45:05 -0500
Subject: [PATCH] Protect against pathological combinations of RxFreq and FTol.

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

diff --git a/lib/q65_sync.f90 b/lib/q65_sync.f90
index 842f14c94..72f8a8f3b 100644
--- a/lib/q65_sync.f90
+++ b/lib/q65_sync.f90
@@ -36,6 +36,7 @@ subroutine q65_sync(nutc,iwave,nmax,mode_q65,codewords,ncw,nsps,nfqso,ntol,    &
   data sync(1)/99.0/
   save sync
 
+  snr1=0.
   id1=0
   dat4=0
   LL=64*(2+mode_q65)
@@ -86,6 +87,7 @@ subroutine q65_sync(nutc,iwave,nmax,mode_q65,codewords,ncw,nsps,nfqso,ntol,    &
   enddo
 
   i0=nint(nfqso/df)                           !Target QSO frequency
+  if(i0-64.lt.1 .or. i0-65+LL.gt.iz) go to 900
   call pctile(s1(i0-64:i0-65+LL,1:jz),LL*jz,40,base)
   s1=s1/base