From 7b67550183a2dbbfe7056bf870a534d4dd75a2b6 Mon Sep 17 00:00:00 2001
From: Steve Franke <s.j.franke@icloud.com>
Date: Sat, 6 Oct 2018 15:09:58 -0500
Subject: [PATCH] Make sure that msk144signalquality is not called for Sh
 decodes.

---
 lib/mskrtd.f90 | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/lib/mskrtd.f90 b/lib/mskrtd.f90
index 8148a8e86..025cfda21 100644
--- a/lib/mskrtd.f90
+++ b/lib/mskrtd.f90
@@ -188,7 +188,12 @@ subroutine mskrtd(id2,nutc0,tsec,ntol,nrxfreq,ndepth,mycall,mygrid,hiscall,   &
   nsnr=nint(snr0)
 
   bshdecode=.false.
-  if( msgreceived(1:1) .eq. '<' ) bshdecode=.true.
+  if( msgreceived(1:1) .eq. '<' ) then
+    i2=index(msgreceived,'>')
+    i1=0
+    if(i2.gt.0) i1=index(msgreceived(1:i2),' ')
+    if(i1.gt.0) bshdecode=.true. 
+  endif
 
   if(.not. bshdecode) then
     call msk144signalquality(ct,snr0,fest,tdec,softbits,msgreceived,hiscall,   &