w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-11-25 05:38:46 -05:00
Code Issues Packages Projects Releases Wiki Activity

Suppress writing duplicates (same time, same decoded message) to map65_rx.log.

Browse Source
This commit is contained in:
Joe Taylor 2021-07-12 10:53:14 -04:00
parent f510f16509
commit d34ba9010b
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
map65/libm65/q65b.f90
View File

@ -29,11 +29,13 @@ subroutine q65b(nutc,nqd,nxant,fcenter,nfcal,nfsample,ikhz,mousedf,ntol,xpol, &
character*12 mycall,hiscall character*12 mycall,hiscall
character*6 mygrid,hisgrid character*6 mygrid,hisgrid
character*4 grid4 character*4 grid4
character*28 msg00
character*80 line character*80 line
character*80 wsjtx_dir character*80 wsjtx_dir
character*1 cp,cmode*2 character*1 cp,cmode*2
common/cacb/ca,cb common/cacb/ca,cb
common/early/nhsym1,nhsym2,ldecoded(32768) common/early/nhsym1,nhsym2,ldecoded(32768)
data nutc00/-1/,msg00/' '/
save save
open(9,file='wsjtx_dir.txt',status='old') open(9,file='wsjtx_dir.txt',status='old')
@ -172,9 +174,14 @@ subroutine q65b(nutc,nqd,nxant,fcenter,nfcal,nfsample,ikhz,mousedf,ntol,xpol, &
':',cp,cmode ':',cp,cmode
1014 format(f8.3,i5,3i3,f5.1,i4,i3,i4,i5.4,4x,a22,1x,2a1,2x,a2) 1014 format(f8.3,i5,3i3,f5.1,i4,i3,i4,i5.4,4x,a22,1x,2a1,2x,a2)
! Suppress writing duplicates (same time, same decoded message) to map65_rx.log
if(nutc.ne.nutc00 .or. msg0(1:28).ne.msg00) then
! Write to file map65_rx.log: ! Write to file map65_rx.log:
write(21,1110) freq1,ndf,xdt0,npol,nsnr0,nutc,msg0(1:28),cq0 write(21,1110) freq1,ndf,xdt0,npol,nsnr0,nutc,msg0(1:28),cq0
1110 format(f8.3,i5,f5.1,2i4,i5.4,2x,a28,': A',2x,a3) 1110 format(f8.3,i5,f5.1,2i4,i5.4,2x,a28,': A',2x,a3)
nutc00=nutc
msg00=msg0(1:28)
endif
endif endif
900 close(13) 900 close(13)