From b4639b77d03b4024ab9246d238afdc2c3bf63560 Mon Sep 17 00:00:00 2001 From: Steve Franke Date: Mon, 21 Jan 2019 19:52:13 -0600 Subject: [PATCH] Fix CMakeLists.txt so that ft2_decode still builds. Fix a bug in ft4d - sync now seems to work. --- CMakeLists.txt | 1 + lib/fsk4hf/ft4d.f90 | 4 ++-- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/CMakeLists.txt b/CMakeLists.txt index dd0860c60..79c8302e5 100644 --- a/CMakeLists.txt +++ b/CMakeLists.txt @@ -462,6 +462,7 @@ set (wsjt_FSRCS lib/ft8/genft8.f90 lib/genmsk_128_90.f90 lib/genmsk40.f90 + lib/fsk4hf/genft2.f90 lib/fsk4hf/genft4.f90 lib/genqra64.f90 lib/ft8/genft8refsig.f90 diff --git a/lib/fsk4hf/ft4d.f90 b/lib/fsk4hf/ft4d.f90 index 22c81cec8..ba5a717ef 100644 --- a/lib/fsk4hf/ft4d.f90 +++ b/lib/fsk4hf/ft4d.f90 @@ -106,7 +106,7 @@ program ft4d ibest=-1 sybest=-99. dfbest=-1. - do if=-60,+60 + do if=-30,+30 df=if a=0. a(1)=-df @@ -115,7 +115,7 @@ program ft4d csync1=0. cterm=1 do ib=1,12 - i1=(ib-1)*10+is + i1=(ib-1)*20+is if(s12(ib).eq.0) then csync1=csync1+sum(cb(i1:i1+19)*conjg(c0(0:19)))*cterm cterm=cterm*cc0