w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-10-26 02:20:20 -04:00
Code Issues Packages Projects Releases Wiki Activity

Merge branch 'feat-fst280' of bitbucket.org:k1jt/wsjtx into feat-fst280

Browse Source
This commit is contained in:
Joe Taylor 2020-07-02 16:55:22 -04:00
commit f17a07953e
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lib/fst240/get_fst240_bitmetrics.f90
View File

@ -87,8 +87,10 @@ subroutine get_fst240_bitmetrics(cd,nss,hmod,nmax,bitmetrics,s4,badsync)
do nseq=1,nmax !Try coherent sequences of 1, 2, and 4 symbols do nseq=1,nmax !Try coherent sequences of 1, 2, and 4 symbols
if(nseq.eq.1) nsym=1 if(nseq.eq.1) nsym=1
if(nseq.eq.2) nsym=2 if(nseq.eq.2) nsym=2
if(nseq.eq.3) nsym=4 if(nseq.eq.3) nsym=3
if(nseq.eq.4) nsym=8 if(nseq.eq.4) nsym=4
! if(nseq.eq.3) nsym=4
! if(nseq.eq.4) nsym=8
nt=4**nsym nt=4**nsym
do ks=1,NN-nsym+1,nsym do ks=1,NN-nsym+1,nsym
s2=0 s2=0
@ -105,6 +107,7 @@ subroutine get_fst240_bitmetrics(cd,nss,hmod,nmax,bitmetrics,s4,badsync)
ipt=1+(ks-1)*2 ipt=1+(ks-1)*2
if(nsym.eq.1) ibmax=1 if(nsym.eq.1) ibmax=1
if(nsym.eq.2) ibmax=3 if(nsym.eq.2) ibmax=3
if(nsym.eq.3) ibmax=5
if(nsym.eq.4) ibmax=7 if(nsym.eq.4) ibmax=7
if(nsym.eq.8) ibmax=15 if(nsym.eq.8) ibmax=15
do ib=0,ibmax do ib=0,ibmax