From 12bda0f84edba469085f3a6e4fa0509345185941 Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Fri, 23 Feb 2024 14:52:02 -0500
Subject: [PATCH] Better protection of edge values of ccf array indexes.

---
 lib/superfox/sfox_sync.f90 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/superfox/sfox_sync.f90 b/lib/superfox/sfox_sync.f90
index 0149a8b2b..19dfe3481 100644
--- a/lib/superfox/sfox_sync.f90
+++ b/lib/superfox/sfox_sync.f90
@@ -34,12 +34,12 @@ subroutine sfox_sync(crcvd,fsample,isync,f,t)
 
   pmax=0.
   ntol=100
-  iz=nint(ntol/df)+2
+  iz=nint(ntol/df)
   i0=nint(1500.0/df)
   ipk=-999
   jpk=-999
   jz=nsz-8*NS
-  allocate(ccf(-iz:iz,1:jz))
+  allocate(ccf(-iz-1:iz+1,1:jz))
   ccf=0.
   do j=1,jz
      do i=-iz,iz