From 7096a548ec91c09e0ba19095b117ca568bcc2102 Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Sat, 19 Dec 2020 10:42:27 -0500
Subject: [PATCH] Correct a problem with estimating rms of ccf for Q65-300x
 submodes.

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

diff --git a/lib/q65_sync.f90 b/lib/q65_sync.f90
index 1f593fd9c..f65f79838 100644
--- a/lib/q65_sync.f90
+++ b/lib/q65_sync.f90
@@ -226,9 +226,10 @@ subroutine q65_sync(nutc,iwave,nmax,mode_q65,codewords,ncw,nsps,nfqso,ntol, &
   xdt=jpk*dtstep
   sq=0.
   nsq=0
+  jd=(lag2-lag1)/4
   do i=-ia,ia
      do j=lag1,lag2
-        if(abs(j-jpk).gt.8 .and. abs(i-ipk).gt.ia/2) then
+        if(abs(j-jpk).gt.jd .and. abs(i-ipk).gt.ia/2) then
            sq=sq + ccf(i,j)**2
            nsq=nsq+1
         endif