From 1c8cca7f85c6627eac4644e31a4220d80a79958a Mon Sep 17 00:00:00 2001 From: Steven Franke Date: Sun, 1 Jan 2017 22:15:29 +0000 Subject: [PATCH] Only print SWL-mode decodes if SNR is high enough. Needs tuning - thresholds may be set too high. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7440 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 --- lib/msk40decodeframe.f90 | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/lib/msk40decodeframe.f90 b/lib/msk40decodeframe.f90 index 5f0ddc11a..8586ea85a 100644 --- a/lib/msk40decodeframe.f90 +++ b/lib/msk40decodeframe.f90 @@ -135,21 +135,23 @@ 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.4 .and. cord.lt.0.65) then + elseif(bswl .and. nhammd.le.2 .and. cord.lt.0.25 .and. xsnr .gt. 0.0) then do i=1,nrecent do j=i+1,nrecent if( nrxhash .eq. nhasharray(i,j) ) then nsuccess=1 write(msgreceived,'(a1,a,1x,a,a1,1x,a4)') "<",trim(recent_calls(i)), & trim(recent_calls(j)),">",rpt(nrxrpt) +!write(*,*) 'decodeframe ',nhammd,cord,nrxhash,nrxrpt,ihash,xsnr,sigma elseif( nrxhash .eq. nhasharray(j,i) ) then nsuccess=1 write(msgreceived,'(a1,a,1x,a,a1,1x,a4)') "<",trim(recent_calls(j)), & trim(recent_calls(i)),">",rpt(nrxrpt) +!write(*,*) 'decodeframe ',nhammd,cord,nrxhash,nrxrpt,ihash,xsnr,sigma endif enddo enddo - if( nsuccess .eq. 0 .and. nhammd.le.1 .and. cord .lt. 0.65 ) then + if(nsuccess.eq.0 .and. nhammd.le.1 .and. cord.lt.0.10 .and. xsnr.gt.3.0 ) then !write(*,*) 'decodeframe ',nhammd,cord,nrxhash,nrxrpt,ihash,xsnr,sigma nsuccess=1 write(msgreceived,'(a1,i4.4,a1,1x,a4)') "<",nrxhash,">",rpt(nrxrpt)