w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-02-03 09:44:24 -05:00
Code Issues Packages Projects Releases Wiki Activity

Fix CMakeLists.txt so that ft2_decode still builds. Fix a bug in ft4d - sync now seems to work.

Browse Source
This commit is contained in:
Steve Franke 2019-01-21 19:52:13 -06:00
parent 7b7857cd77
commit b4639b77d0
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
CMakeLists.txt
View File

@ -462,6 +462,7 @@ set (wsjt_FSRCS
lib/ft8/genft8.f90 lib/ft8/genft8.f90
lib/genmsk_128_90.f90 lib/genmsk_128_90.f90
lib/genmsk40.f90 lib/genmsk40.f90
lib/fsk4hf/genft2.f90
lib/fsk4hf/genft4.f90 lib/fsk4hf/genft4.f90
lib/genqra64.f90 lib/genqra64.f90
lib/ft8/genft8refsig.f90 lib/ft8/genft8refsig.f90

4
lib/fsk4hf/ft4d.f90
View File

@ -106,7 +106,7 @@ program ft4d
ibest=-1 ibest=-1
sybest=-99. sybest=-99.
dfbest=-1. dfbest=-1.
do if=-60,+60 do if=-30,+30
df=if df=if
a=0. a=0.
a(1)=-df a(1)=-df
@ -115,7 +115,7 @@ program ft4d
csync1=0. csync1=0.
cterm=1 cterm=1
do ib=1,12 do ib=1,12
i1=(ib-1)*10+is i1=(ib-1)*20+is
if(s12(ib).eq.0) then if(s12(ib).eq.0) then
csync1=csync1+sum(cb(i1:i1+19)*conjg(c0(0:19)))*cterm csync1=csync1+sum(cb(i1:i1+19)*conjg(c0(0:19)))*cterm
cterm=cterm*cc0 cterm=cterm*cc0