From 0f04f3285aec7183170f82a9c06c2412e923f5a7 Mon Sep 17 00:00:00 2001
From: Steven Franke <s.j.franke@icloud.com>
Date: Wed, 1 Jul 2020 08:20:38 -0500
Subject: [PATCH] Prevent decodes that fail to unpack from being printed.

---
 lib/fst240_decode.f90 | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/lib/fst240_decode.f90 b/lib/fst240_decode.f90
index f340e8d29..09b16c2ef 100644
--- a/lib/fst240_decode.f90
+++ b/lib/fst240_decode.f90
@@ -547,12 +547,14 @@ contains
                         else
                            xsnr=-99.9
                         endif
+                     else
+                        cycle
                      endif
                      nsnr=nint(xsnr)
                      qual=0.
                      fsig=fc_synced - 1.5*hmod*baud
 !write(21,'(i6,7i6,f7.1,f9.2,3f7.1,1x,a37)') &
-!  nutc,icand,itry,iaptype,ijitter,ntype,nsync_qual,nharderrors,dmin,sync,xsnr,x!dt,fsig,msg
+!  nutc,icand,itry,iaptype,ijitter,ntype,nsync_qual,nharderrors,dmin,sync,xsnr,xdt,fsig,msg
                      call this%callback(nutc,smax1,nsnr,xdt,fsig,msg,    &
                         iaptype,qual,ntrperiod,lwspr)
                      goto 2002