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

Polynomial-fit SNR is still not right. Disable it again, for now.

Browse Source
This commit is contained in:
Steve Franke 2018-09-24 19:36:30 -05:00
parent 591de66a31
commit 669d54197d
1 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lib/ft8/ft8b_2.f90
View File

@ -312,7 +312,6 @@ subroutine ft8b_2(dd0,newdat,nQSOProgress,nfqso,nftx,ndepth,lapon,lapcqonly, &
endif endif
msg37=' ' msg37=' '
xsnr=-99.0
if(nharderrors.lt.0 .or. nharderrors.gt.36) cycle if(nharderrors.lt.0 .or. nharderrors.gt.36) cycle
if(count(cw.eq.0).eq.174) cycle !Reject the all-zero codeword if(count(cw.eq.0).eq.174) cycle !Reject the all-zero codeword
write(c77,'(77i1)') message77 write(c77,'(77i1)') message77
@ -337,11 +336,11 @@ subroutine ft8b_2(dd0,newdat,nQSOProgress,nfqso,nftx,ndepth,lapon,lapcqonly, &
enddo enddo
xsnr=0.001 xsnr=0.001
if(xnoi.gt.0 .and. xnoi.lt.xsig) xsnr=xsig/xnoi-1.0 if(xnoi.gt.0 .and. xnoi.lt.xsig) xsnr=xsig/xnoi-1.0
if(.not.nagain) then ! if(.not.nagain) then
xbase=10**(xbase/10.0) ! xbase=10**(xbase/10.0)
arg=xsig/xbase/3.6e6-1.0 ! arg=xsig/xbase/3.6e6-1.0
if(arg.gt.0.1) xsnr=arg ! if(arg.gt.0.1) xsnr=arg
endif ! endif
xsnr=10.0*log10(xsnr)-27.0 xsnr=10.0*log10(xsnr)-27.0
if(xsnr .lt. -24.0) xsnr=-24.0 if(xsnr .lt. -24.0) xsnr=-24.0