From 9582ccd5d547895d0ee2293ca241307a56ee2cc4 Mon Sep 17 00:00:00 2001 From: Steven Franke Date: Mon, 2 Jan 2017 03:56:29 +0000 Subject: [PATCH] Lower SWL SNR thresholds by one notch. Note that the xsnr that is compared to the threshold is the nonlinear snr from squared signal spectrum, not 'real' snr. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7441 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 --- lib/msk144signalquality.f90 | 2 +- lib/msk40decodeframe.f90 | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/lib/msk144signalquality.f90 b/lib/msk144signalquality.f90 index b43fe3350..f17215fcf 100644 --- a/lib/msk144signalquality.f90 +++ b/lib/msk144signalquality.f90 @@ -197,7 +197,7 @@ write(*,*) 'start training on call ',training_dxcall rmsdiff=sum( (pp-phase((864/2-nm/2):(864/2+nm/2)))**2 )/145.0 write(*,*) 'training ',navg,sqrt(chisqr),rmsdiff ! if( (sqrt(chisqr).lt.1.5) .and. (rmsdiff.lt.1.1) .and. (navg.ge.5) ) then - if( (sqrt(chisqr).lt.1.5) .and. (rmsdiff.lt.1.1) .and. (navg.ge.2) ) then + if( (sqrt(chisqr).lt.1.8) .and. (rmsdiff.lt.0.5) .and. (navg.ge.2) ) then open(18,file='phasefit.dat',status='unknown') do i=1, 145 write(18,*) x(i),pp(i),y(i),sigmay(i) diff --git a/lib/msk40decodeframe.f90 b/lib/msk40decodeframe.f90 index 8586ea85a..7e16d2a08 100644 --- a/lib/msk40decodeframe.f90 +++ b/lib/msk40decodeframe.f90 @@ -135,7 +135,7 @@ subroutine msk40decodeframe(c,mycall,hiscall,xsnr,bswl,nhasharray, & write(msgreceived,'(a1,a,1x,a,a1,1x,a4)') "<",trim(mycall), & trim(hiscall),">",rpt(nrxrpt) return - elseif(bswl .and. nhammd.le.2 .and. cord.lt.0.25 .and. xsnr .gt. 0.0) then + elseif(bswl .and. nhammd.le.2 .and. cord.lt.0.40 .and. xsnr .gt. -3.0) then do i=1,nrecent do j=i+1,nrecent if( nrxhash .eq. nhasharray(i,j) ) then @@ -151,7 +151,7 @@ subroutine msk40decodeframe(c,mycall,hiscall,xsnr,bswl,nhasharray, & endif enddo enddo - if(nsuccess.eq.0 .and. nhammd.le.1 .and. cord.lt.0.10 .and. xsnr.gt.3.0 ) then + if(nsuccess.eq.0 .and. nhammd.le.2 .and. cord.lt.0.40 .and. xsnr.gt.0.0 ) then !write(*,*) 'decodeframe ',nhammd,cord,nrxhash,nrxrpt,ihash,xsnr,sigma nsuccess=1 write(msgreceived,'(a1,i4.4,a1,1x,a4)') "<",nrxhash,">",rpt(nrxrpt)