From 9fa08d383846aa8fc2a2c159167bdd6da9ff9a93 Mon Sep 17 00:00:00 2001 From: Steve Franke Date: Fri, 25 Jan 2019 16:06:45 -0600 Subject: [PATCH] Un-hardwire sync. --- lib/ft4/ft4d.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lib/ft4/ft4d.f90 b/lib/ft4/ft4d.f90 index 6701e6b2e..d1bf262c1 100644 --- a/lib/ft4/ft4d.f90 +++ b/lib/ft4/ft4d.f90 @@ -124,11 +124,11 @@ program ft4d enddo f0=f0+dfbest -f0=1443.75 +!f0=1443.75 call ft4_downsample(iwave,f0,cb) ! downsample from 320s/Symbol to 20s/Symbol sum2=sum(abs(cb)**2)/(20.0*76) if(sum2.gt.0.0) cb=cb/sqrt(sum2) -ibest=208 +!ibest=208 cd=cb(ibest:ibest+76*20-1) do k=1,NN i1=(k-1)*20