From 91d0707eb6ff9d817dc7d157b91ef5ae011a706f Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Fri, 27 Jul 2018 10:28:28 -0400
Subject: [PATCH] Fix a quirk (aka "QU1RK") that can produce a callsign with an
 embedded blank.

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

diff --git a/lib/77bit/packjt77.f90 b/lib/77bit/packjt77.f90
index 637f89ba5..91faee50c 100644
--- a/lib/77bit/packjt77.f90
+++ b/lib/77bit/packjt77.f90
@@ -631,7 +631,9 @@ subroutine unpack28(n28_0,c13)
        c4(i5+1:i5+1)//c4(i6+1:i6+1)//'       '
   c13=adjustl(c13)
 
-900  return
+900 i0=index(c13,' ')
+  if(i0.lt.len(trim(c13))) c13='QU1RK'
+  return
 end subroutine unpack28
 
 subroutine split77(msg,nwords,nw,w)