From d438f918458e34b926765ba2228d27846248d4b0 Mon Sep 17 00:00:00 2001 From: Steven Franke Date: Sun, 18 Feb 2024 11:18:47 -0600 Subject: [PATCH] Make ftrsd3 work with (127,48) 128-ary code. --- lib/superfox/ftrsd3.f90 | 3 ++- lib/superfox/sfoxtest.f90 | 2 +- lib/superfox/sym_prob.f90 | 3 ++- 3 files changed, 5 insertions(+), 3 deletions(-) diff --git a/lib/superfox/ftrsd3.f90 b/lib/superfox/ftrsd3.f90 index a4cbf4d4d..ec4c73614 100644 --- a/lib/superfox/ftrsd3.f90 +++ b/lib/superfox/ftrsd3.f90 @@ -69,6 +69,7 @@ subroutine ftrsd3(s3,chansym0,rxdat,rxprob,rxdat2,rxprob2,ntrials0, & enddo enddo + correct=-1 era_pos=0 numera=0 workdat=rxdat @@ -108,7 +109,7 @@ subroutine ftrsd3(s3,chansym0,rxdat,rxprob,rxdat2,rxprob2,ntrials0, & ratio=float(rxprob2(j))/(float(rxprob(j))+0.01) ii=7.999*ratio jj=int((7.999/NN)*(NN-1-i)) - thresh0(i)=1.3*perr(jj,ii) + thresh0(i)=0.60*perr(jj,ii) enddo if(nsum.le.0) return diff --git a/lib/superfox/sfoxtest.f90 b/lib/superfox/sfoxtest.f90 index 43f97c4e6..4dcf64078 100644 --- a/lib/superfox/sfoxtest.f90 +++ b/lib/superfox/sfoxtest.f90 @@ -209,7 +209,7 @@ program sfoxtest nworst=max(nworst,nharderr) ! call rs_decode_sf(rxdat,iera,nera,nfixed) !Call the BM decoder - ntrials=1000 + ntrials=-1 call timer('ftrsd3 ',0) call ftrsd3(s3,chansym0,rxdat,rxprob,rxdat2,rxprob2,ntrials, & correct,param,ntry) diff --git a/lib/superfox/sym_prob.f90 b/lib/superfox/sym_prob.f90 index acbe25845..c11866374 100644 --- a/lib/superfox/sym_prob.f90 +++ b/lib/superfox/sym_prob.f90 @@ -14,7 +14,8 @@ subroutine sym_prob(s3,rxdat,rxprob,rxdat2,rxprob2) integer rxdat(0:NN-1),rxprob(0:NN-1),rxdat2(0:NN-1),rxprob2(0:NN-1) afac=1.1 - scale=255.999 +! scale=255.999 + scale=2047.999 ! Compute average spectral value ave=sum(s3)/(NQ*ND)