From 7fb7e512834e0637202aeda2981a0043ac0f99a1 Mon Sep 17 00:00:00 2001 From: Steven Franke Date: Thu, 2 Jul 2020 14:48:11 -0500 Subject: [PATCH] Use N=1,2,3,4 for now. --- lib/fst240/get_fst240_bitmetrics.f90 | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/lib/fst240/get_fst240_bitmetrics.f90 b/lib/fst240/get_fst240_bitmetrics.f90 index 60804cba7..49f46f411 100644 --- a/lib/fst240/get_fst240_bitmetrics.f90 +++ b/lib/fst240/get_fst240_bitmetrics.f90 @@ -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 if(nseq.eq.1) nsym=1 if(nseq.eq.2) nsym=2 - if(nseq.eq.3) nsym=4 - if(nseq.eq.4) nsym=8 + if(nseq.eq.3) nsym=3 + if(nseq.eq.4) nsym=4 +! if(nseq.eq.3) nsym=4 +! if(nseq.eq.4) nsym=8 nt=4**nsym do ks=1,NN-nsym+1,nsym s2=0 @@ -105,6 +107,7 @@ subroutine get_fst240_bitmetrics(cd,nss,hmod,nmax,bitmetrics,s4,badsync) ipt=1+(ks-1)*2 if(nsym.eq.1) ibmax=1 if(nsym.eq.2) ibmax=3 + if(nsym.eq.3) ibmax=5 if(nsym.eq.4) ibmax=7 if(nsym.eq.8) ibmax=15 do ib=0,ibmax