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