remove duplicate messages from printing in ft8d.f90

2025-04-06 03:28:56 -04:00 · 2020-06-25 13:51:12 +00:00 · 2020-06-25 13:51:12 +00:00 · 74591b9e35
commit 74591b9e35
parent b1d35b7fa6
1 changed files with 4 additions and 5 deletions
--- a/ft8d.f90
+++ b/ft8d.f90
@ -81,11 +81,10 @@ program ft8d
          do id=1,ndecodes
            if(msg37.eq.allmessages(id).and.nsnr.le.allsnrs(id)) ldupe=.true.
          enddo
-          if(.not.ldupe) then
-            ndecodes=ndecodes+1
-            allmessages(ndecodes)=msg37
-            allsnrs(ndecodes)=nsnr
-          endif
+          if(ldupe) cycle
+          ndecodes=ndecodes+1
+          allmessages(ndecodes)=msg37
+          allsnrs(ndecodes)=nsnr
          write(*,1004) date,time,15*(ipart-1),min(sync,999.0),nint(xsnr), &
              xdt,nint(f1-2000+dialfreq),msgcall,msggrid
 1004      format(a6,1x,a4,i2.2,f6.1,i4,f6.2,i9,1x,a13,1x,a4)