From 98d52e35acd035070b91c3c4b6c2ca4e32408bb1 Mon Sep 17 00:00:00 2001 From: Steven Franke Date: Mon, 14 Sep 2020 09:00:30 -0500 Subject: [PATCH 1/2] Speed up FST4 decoding. --- lib/fst4_decode.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lib/fst4_decode.f90 b/lib/fst4_decode.f90 index 6237ba4a7..848559530 100644 --- a/lib/fst4_decode.f90 +++ b/lib/fst4_decode.f90 @@ -392,7 +392,7 @@ contains if(iwspr.eq.0) then maxosd=2 Keff=91 - norder=4 + norder=3 call timer('d240_101',0) call decode240_101(llr,Keff,maxosd,norder,apmask,message101, & cw,ntype,nharderrors,dmin) From ca0804450baf56378346d65727dfa5447d86c172 Mon Sep 17 00:00:00 2001 From: Steven Franke Date: Mon, 14 Sep 2020 09:07:45 -0500 Subject: [PATCH 2/2] Remove some redundant code. --- lib/fst4_decode.f90 | 3 --- 1 file changed, 3 deletions(-) diff --git a/lib/fst4_decode.f90 b/lib/fst4_decode.f90 index 848559530..c90149298 100644 --- a/lib/fst4_decode.f90 +++ b/lib/fst4_decode.f90 @@ -214,15 +214,12 @@ contains if(ndepth.eq.3) then nblock=4 jittermax=2 - norder=3 elseif(ndepth.eq.2) then nblock=3 jittermax=0 - norder=3 elseif(ndepth.eq.1) then nblock=1 jittermax=0 - norder=3 endif ndropmax=1