From 3bb1487c60ecd19ff9bca24e2086bc418cafad4b Mon Sep 17 00:00:00 2001 From: Joe Taylor Date: Thu, 14 Jul 2016 18:23:38 +0000 Subject: [PATCH] Allow <...> display of mouse-clicked short MSK144 messages with bad CRC and S/N > -4. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6921 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 --- lib/detectmsk32.f90 | 15 +++++++++++---- 1 file changed, 11 insertions(+), 4 deletions(-) diff --git a/lib/detectmsk32.f90 b/lib/detectmsk32.f90 index 4e1263b51..6b366db3c 100644 --- a/lib/detectmsk32.f90 +++ b/lib/detectmsk32.f90 @@ -434,11 +434,18 @@ subroutine detectmsk32(cbig,n,mycall,partnercall,lines,nmessages,nutc,ntol,t00) call hash(hashmsg,22,ihash) ihash=iand(ihash,127) - if( nrxhash.eq.ihash ) then + if(nrxhash.eq.ihash .or. t0.gt.0.0) then nmessages=1 - write(msgreceived,'(a1,a,1x,a,a1,1x,a4)') "<",trim(mycall),trim(partnercall),">",rpt(nrxrpt) - write(lines(nmessages),1020) nutc,nsnr,t0,nint(fest),msgreceived -1020 format(i6.6,i4,f5.1,i5,' & ',a22) + if(nrxhash.eq.ihash) then + write(msgreceived,'(a1,a,1x,a,a1,1x,a4)') "<",trim(mycall), & + trim(partnercall),">",rpt(nrxrpt) + write(lines(nmessages),1020) nutc,nsnr,t0,nint(fest),msgreceived +1020 format(i6.6,i4,f5.1,i5,' & ',a22) + endif + if(nrxhash.ne.ihash .and. t0.gt.0.0 .and. nsnr.gt.-4) then + write(msgreceived,'(a5,1x,a4)') "<...>",rpt(nrxrpt) + write(lines(nmessages),1020) nutc,nsnr,t0,nint(fest),msgreceived + endif ! write(*,1022) nutc,ipbest,times(ipbest),snrs(ipbest),fest,nrxrpt,nrxhash, & ! rpt(nrxrpt),imessage,ig24(imessage),nhammdbest, &