w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-11-22 20:28:42 -05:00
Code Issues Packages Projects Releases Wiki Activity

Use N=1,2,3,4 for now.

Browse Source
This commit is contained in:
Steven Franke 2020-07-02 14:48:11 -05:00
parent ab2371a96b
commit 7fb7e51283
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