mirror of
https://github.com/pavel-demin/ft8d.git
synced 2024-09-27 15:46:57 -04:00
remove duplicate messages from printing in ft8d.f90
This commit is contained in:
parent
b1d35b7fa6
commit
74591b9e35
9
ft8d.f90
9
ft8d.f90
@ -81,11 +81,10 @@ program ft8d
|
|||||||
do id=1,ndecodes
|
do id=1,ndecodes
|
||||||
if(msg37.eq.allmessages(id).and.nsnr.le.allsnrs(id)) ldupe=.true.
|
if(msg37.eq.allmessages(id).and.nsnr.le.allsnrs(id)) ldupe=.true.
|
||||||
enddo
|
enddo
|
||||||
if(.not.ldupe) then
|
if(ldupe) cycle
|
||||||
ndecodes=ndecodes+1
|
ndecodes=ndecodes+1
|
||||||
allmessages(ndecodes)=msg37
|
allmessages(ndecodes)=msg37
|
||||||
allsnrs(ndecodes)=nsnr
|
allsnrs(ndecodes)=nsnr
|
||||||
endif
|
|
||||||
write(*,1004) date,time,15*(ipart-1),min(sync,999.0),nint(xsnr), &
|
write(*,1004) date,time,15*(ipart-1),min(sync,999.0),nint(xsnr), &
|
||||||
xdt,nint(f1-2000+dialfreq),msgcall,msggrid
|
xdt,nint(f1-2000+dialfreq),msgcall,msggrid
|
||||||
1004 format(a6,1x,a4,i2.2,f6.1,i4,f6.2,i9,1x,a13,1x,a4)
|
1004 format(a6,1x,a4,i2.2,f6.1,i4,f6.2,i9,1x,a13,1x,a4)
|
||||||
|
Loading…
Reference in New Issue
Block a user