From 7bf4aaef2e2178d0156b1508ac696fe6a8469e45 Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Sun, 11 Feb 2024 16:05:31 -0500
Subject: [PATCH] Allow different lag step sizes in sfox_sync routine.

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

diff --git a/lib/superfox/sfox_sync.f90 b/lib/superfox/sfox_sync.f90
index 2574e7a16..4094232ab 100644
--- a/lib/superfox/sfox_sync.f90
+++ b/lib/superfox/sfox_sync.f90
@@ -11,10 +11,11 @@ subroutine sfox_sync(crcvd,clo,nv,f,t)
   data mark/' ','.','-','+','X','$'/
 
   s=0.
-  df=12000.0/NFFT                         !0.366211
+  df=12000.0/NFFT                         !0.366211 Hz
+  lagstep=100
   i1=ND1*nsps
   do m=-MMAX,MMAX
-     lag=100*m
+     lag=lagstep*m
      c(0:nsync-1)=crcvd(i1+1+lag:i1+nsync+lag)*clo(1:nsync)
      c(nsync:)=0.
      call four2a(c,NFFT,1,-1,1)
@@ -43,7 +44,7 @@ subroutine sfox_sync(crcvd,clo,nv,f,t)
 1300    format(f6.3,2x,61a1)
      enddo
   endif
-  t=ipk(1)/120.0
+  t=ipk(1)*lagstep/12000.0
   dfreq=ipk(2)*df
   f=1500.0+dfreq