From 3fe6fa3d7228deeed114e938f81025dc2943b5da Mon Sep 17 00:00:00 2001
From: Steven Franke <s.j.franke@icloud.com>
Date: Sat, 4 Jul 2020 12:57:51 -0500
Subject: [PATCH] Rough first attempt at setting minsync according to setup.

---
 lib/fst240_decode.f90 | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/lib/fst240_decode.f90 b/lib/fst240_decode.f90
index 00dda3882..a0eb5ad64 100644
--- a/lib/fst240_decode.f90
+++ b/lib/fst240_decode.f90
@@ -83,7 +83,7 @@ contains
       dxcall13=hiscall   ! initialize for use in packjt77
       mycall13=mycall
 
-      fMHz=10.0
+      fMHz=1.0
 
       if(first) then
          mcq=2*mod(mcq+rvec(1:29),2)-1
@@ -285,7 +285,13 @@ contains
             fb=min(4800,nfb)
          endif
 
-         minsync=1.25
+         if(hmod.eq.1) then
+            if(ntrperiod.eq.15) minsync=1.15
+            if(ntrperiod.gt.15) minsync=1.20
+         elseif(hmod.gt.1) then
+            minsync=1.5
+         endif
+
 
 ! Get first approximation of candidate frequencies
          call get_candidates_fst240(c_bigfft,nfft1,nsps,hmod,fs,fa,fb,     &