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

Make ftrsd3 work better for a (127,48) Reed Solomon code.

Browse Source
This commit is contained in:
Steven Franke 2024-02-18 12:45:29 -06:00
parent d438f91845
commit ec0c31d849
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lib/superfox/ftrsd3.f90
View File

@ -109,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)=0.60*perr(jj,ii)
thresh0(i)=0.90*perr(jj,ii)
enddo
if(nsum.le.0) return
@ -135,7 +135,7 @@ subroutine ftrsd3(s3,chansym0,rxdat,rxprob,rxdat2,rxprob2,ntrials0, &
! nseed=iand(ir,2147483647)
ir=100.0*ran1(nseed)
if((ir.lt.thresh) .and. numera.lt.(NN-KK)) then
if((ir.lt.thresh) .and. numera.lt. 0.69*(NN-KK)) then
era_pos(numera)=j
numera=numera+1
if(rxdat(j).ne.chansym0(j)) then
@ -191,6 +191,6 @@ subroutine ftrsd3(s3,chansym0,rxdat,rxprob,rxdat2,rxprob2,ntrials0, &
param(7)=1000.0*pp2
param(8)=1000.0*pp1
if(param(0).eq.0) param(2)=-1
!write(*,*) ntry,ncandidates,nera_best,nhard_min,nsoft_min,ntotal_min,pp1,pp2
900 return
end subroutine ftrsd3