From fdb84c0e6345a57154ba2172e6b46a3e083186e0 Mon Sep 17 00:00:00 2001
From: Steve Franke <s.j.franke@icloud.com>
Date: Wed, 30 Jan 2019 19:19:38 -0600
Subject: [PATCH] Fix an off-by-one error.

---
 lib/ft4/sync4d.f90 | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/lib/ft4/sync4d.f90 b/lib/ft4/sync4d.f90
index e0f87cb8e..bb63cf7c1 100644
--- a/lib/ft4/sync4d.f90
+++ b/lib/ft4/sync4d.f90
@@ -35,9 +35,9 @@ subroutine sync4d(cd0,i0,ctwk,itwk,sync)
 
   sync=0
   i1=i0                            !four Costas arrays
-  i2=i0+33*NSS-1                     
-  i3=i0+66*NSS-1
-  i4=i0+99*NSS-1                 
+  i2=i0+33*NSS
+  i3=i0+66*NSS
+  i4=i0+99*NSS
   csync2=csync
   if(itwk.eq.1) csync2=ctwk*csync2      !Tweak the frequency
   if(i1.ge.0 .and. i1+4*NSS-1.le.NP-1) z1=sum(cd0(i1:i1+4*NSS-1)*conjg(csync2))