w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-05-29 21:02:26 -04:00
Code Issues Packages Projects Releases Wiki Activity

Suppress duplicates (same time, same decoded message) in Messages window.

Browse Source
This commit is contained in:
Joe Taylor 2021-07-12 10:35:49 -04:00
parent d53b5cbd33
commit f510f16509
1 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
map65/libm65/display.f90
View File

@ -3,13 +3,14 @@ subroutine display(nkeep,ftol)
parameter (MAXLINES=400,MX=400,MAXCALLS=500) parameter (MAXLINES=400,MX=400,MAXCALLS=500)
integer indx(MAXLINES),indx2(MX) integer indx(MAXLINES),indx2(MX)
character*83 line(MAXLINES),line2(MX),line3(MAXLINES) character*83 line(MAXLINES),line2(MX),line3(MAXLINES)
character out*52,cfreq0*3,livecq*58 character out*52,out0*52,cfreq0*3,livecq*58
character*6 callsign,callsign0 character*6 callsign,callsign0
character*12 freqcall(MAXCALLS) character*12 freqcall(MAXCALLS)
real freqkHz(MAXLINES) real freqkHz(MAXLINES)
integer utc(MAXLINES),utc2(MX),utcz integer utc(MAXLINES),utc2(MX),utcz
real*8 f0 real*8 f0
out0=' '
rewind 26 rewind 26
do i=1,MAXLINES do i=1,MAXLINES
@ -132,8 +133,14 @@ subroutine display(nkeep,ftol)
index(livecq,' QRT ').gt.0 .or. index(livecq,' CQV ').gt.0 .or. & index(livecq,' QRT ').gt.0 .or. index(livecq,' CQV ').gt.0 .or. &
index(livecq,' CQH ').gt.0) write(19,1029) livecq index(livecq,' CQH ').gt.0) write(19,1029) livecq
1029 format(a58) 1029 format(a58)
write(*,1030) out !Messages
1030 format('@',a52) ! Suppress listing duplicate (same time, same decoded message)
if(out(14:17).ne.out0(14:17) .or. out(26:50).ne.out0(26:50)) then
write(*,1030) out !Messages
1030 format('@',a52)
out0=out
endif
i1=index(out(26:),' ') i1=index(out(26:),' ')
callsign=out(i1+26:) callsign=out(i1+26:)
i2=index(callsign,' ') i2=index(callsign,' ')