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

Tweak erasure probability in ftrsd3.f90

Browse Source
This commit is contained in:
Steven Franke 2024-03-21 11:20:28 -05:00
parent 0c38d3b83f
commit d040026672
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lib/superfox/ftrsd3.f90
View File

@ -107,7 +107,7 @@ subroutine ftrsd3(s3,rxdat,rxprob,rxdat2,rxprob2,ntrials0,correct,param,ntry)
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)=0.90*perr(jj,ii) thresh0(i)=1.15*perr(jj,ii)
enddo enddo
if(nsum.le.0) return if(nsum.le.0) return