w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-10-01 01:26:39 -04:00
Code Issues Packages Projects Releases Wiki Activity

Allow <...> display of mouse-clicked short MSK144 messages with bad CRC and S/N > -4.

Browse Source 
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6921 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor 2016-07-14 18:23:38 +00:00
parent c5a36520f6
commit 3bb1487c60
1 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
lib/detectmsk32.f90
View File

@ -434,11 +434,18 @@ subroutine detectmsk32(cbig,n,mycall,partnercall,lines,nmessages,nutc,ntol,t00)
call hash(hashmsg,22,ihash) call hash(hashmsg,22,ihash)
ihash=iand(ihash,127) ihash=iand(ihash,127)
if( nrxhash.eq.ihash ) then if(nrxhash.eq.ihash .or. t0.gt.0.0) then
nmessages=1 nmessages=1
write(msgreceived,'(a1,a,1x,a,a1,1x,a4)') "<",trim(mycall),trim(partnercall),">",rpt(nrxrpt) if(nrxhash.eq.ihash) then
write(lines(nmessages),1020) nutc,nsnr,t0,nint(fest),msgreceived write(msgreceived,'(a1,a,1x,a,a1,1x,a4)') "<",trim(mycall), &
1020 format(i6.6,i4,f5.1,i5,' & ',a22) 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, & ! write(*,1022) nutc,ipbest,times(ipbest),snrs(ipbest),fest,nrxrpt,nrxhash, &
! rpt(nrxrpt),imessage,ig24(imessage),nhammdbest, & ! rpt(nrxrpt),imessage,ig24(imessage),nhammdbest, &