From 032de4a2c9ec5f4cd6f358ae0f2acd89eabe42f5 Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Tue, 12 May 2020 13:40:00 -0400
Subject: [PATCH] Fix a bug parsing EU VHF message with both calls "/P".  (The
 only message with both calls hashed is type 5, EU VHF Contest.)

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

diff --git a/lib/77bit/packjt77.f90 b/lib/77bit/packjt77.f90
index 707e86e98..4d51e421a 100644
--- a/lib/77bit/packjt77.f90
+++ b/lib/77bit/packjt77.f90
@@ -1157,6 +1157,7 @@ subroutine pack77_3(nwords,w,i3,n3,c77)
        "NB ","NS ","QC ","ON ","MB ","SK ","AB ","BC ","NWT","NF ",  &
        "LB ","NU ","YT ","PEI","DC "/
 
+  if(w(1)(1:1).eq.'<' .and. w(2)(1:1).eq.'<') go to 900
   if(nwords.eq.4 .or. nwords.eq.5 .or. nwords.eq.6) then
      i1=1
      if(trim(w(1)).eq.'TU;') i1=2