From 99f419f63cecfc14f38d8e93d31885b222bd5700 Mon Sep 17 00:00:00 2001
From: Bill Somerville <bill@classdesign.com>
Date: Wed, 15 Jul 2020 01:46:52 +0100
Subject: [PATCH] Initialize prefix store for type 2 50-bit messages

---
 lib/77bit/packjt77.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/77bit/packjt77.f90 b/lib/77bit/packjt77.f90
index dc6fb0f17..5fc335393 100644
--- a/lib/77bit/packjt77.f90
+++ b/lib/77bit/packjt77.f90
@@ -374,6 +374,7 @@ subroutine unpack77(c77,nrx,msg,unpk77_success)
         call unpack28(n28,call_1,unpk28_success) 
         if(.not.unpk28_success) unpk77_success=.false.
         write(crpt,'(i3)') idbm
+        cpfx='   '
         if(npfx.lt.nzzz) then
 ! Prefix
            do i=3,1,-1
@@ -388,7 +389,6 @@ subroutine unpack77(c77,nrx,msg,unpk77_success)
         else
 ! Suffix
            npfx=npfx-nzzz
-           cpfx='   '
            if(npfx.le.35) then
               cpfx(1:1)=a2(npfx+1:npfx+1)
            else if(npfx.gt.35 .and. npfx.le.1295) then