w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-05-30 21:32:29 -04:00
Code Issues Packages Projects Releases Wiki Activity

Make ftrsd3 work with (127,48) 128-ary code.

Browse Source
This commit is contained in:
Steven Franke 2024-02-18 11:18:47 -06:00
parent 5c53a43171
commit d438f91845
3 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lib/superfox/ftrsd3.f90
View File

@ -69,6 +69,7 @@ subroutine ftrsd3(s3,chansym0,rxdat,rxprob,rxdat2,rxprob2,ntrials0, &
enddo enddo
enddo enddo
correct=-1
era_pos=0 era_pos=0
numera=0 numera=0
workdat=rxdat workdat=rxdat
@ -108,7 +109,7 @@ subroutine ftrsd3(s3,chansym0,rxdat,rxprob,rxdat2,rxprob2,ntrials0, &
ratio=float(rxprob2(j))/(float(rxprob(j))+0.01) ratio=float(rxprob2(j))/(float(rxprob(j))+0.01)
ii=7.999*ratio ii=7.999*ratio
jj=int((7.999/NN)*(NN-1-i)) jj=int((7.999/NN)*(NN-1-i))
thresh0(i)=1.3*perr(jj,ii) thresh0(i)=0.60*perr(jj,ii)
enddo enddo
if(nsum.le.0) return if(nsum.le.0) return

2
lib/superfox/sfoxtest.f90
View File

@ -209,7 +209,7 @@ program sfoxtest
nworst=max(nworst,nharderr) nworst=max(nworst,nharderr)
! call rs_decode_sf(rxdat,iera,nera,nfixed) !Call the BM decoder ! call rs_decode_sf(rxdat,iera,nera,nfixed) !Call the BM decoder
ntrials=1000 ntrials=-1
call timer('ftrsd3 ',0) call timer('ftrsd3 ',0)
call ftrsd3(s3,chansym0,rxdat,rxprob,rxdat2,rxprob2,ntrials, & call ftrsd3(s3,chansym0,rxdat,rxprob,rxdat2,rxprob2,ntrials, &
correct,param,ntry) correct,param,ntry)

3
lib/superfox/sym_prob.f90
View File

@ -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) integer rxdat(0:NN-1),rxprob(0:NN-1),rxdat2(0:NN-1),rxprob2(0:NN-1)
afac=1.1 afac=1.1
scale=255.999 ! scale=255.999
scale=2047.999
! Compute average spectral value ! Compute average spectral value
ave=sum(s3)/(NQ*ND) ave=sum(s3)/(NQ*ND)