From 14af74ddebf9cda5b71acde124aa44530527f07c Mon Sep 17 00:00:00 2001
From: Steve Franke <s.j.franke@icloud.com>
Date: Tue, 9 Oct 2018 15:29:12 -0500
Subject: [PATCH] Minor changes to simplify hash10,hash12,hash22 routines.

---
 lib/77bit/packjt77.f90 | 15 +++------------
 1 file changed, 3 insertions(+), 12 deletions(-)

diff --git a/lib/77bit/packjt77.f90 b/lib/77bit/packjt77.f90
index aa06abf6d..44a273944 100644
--- a/lib/77bit/packjt77.f90
+++ b/lib/77bit/packjt77.f90
@@ -17,10 +17,7 @@ subroutine hash10(n10,c13)
   do i=1,nzhash
      if(ihash10(i).eq.n10) then
         c13=callsign(i)
-        if(c13(1:1).ne.'<') then
-           n=len(trim(c13))
-           c13='<'//trim(c13)//'>'//'         '
-        endif
+        c13='<'//trim(c13)//'>'//'         '
         go to 900
      endif
   enddo
@@ -36,10 +33,7 @@ subroutine hash12(n12,c13)
   do i=1,nzhash
      if(ihash12(i).eq.n12) then
         c13=callsign(i)
-        if(c13(1:1).ne.'<') then
-           n=len(trim(c13))
-           c13='<'//trim(c13)//'>'//'         '
-        endif
+        c13='<'//trim(c13)//'>'//'         '
         go to 900
      endif
   enddo
@@ -56,10 +50,7 @@ subroutine hash22(n22,c13)
   do i=1,nzhash
      if(ihash22(i).eq.n22) then
         c13=callsign(i)
-        if(c13(1:1).ne.'<') then
-           n=len(trim(c13))
-           c13='<'//trim(c13)//'>'//'         '
-        endif
+        c13='<'//trim(c13)//'>'//'         '
         go to 900
      endif
   enddo