From 4646e61b9ad31c0da45cf8f3dfe8bae7dfa73d3f Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Wed, 15 Apr 2020 14:43:33 -0400
Subject: [PATCH] Fix a bug in packjt77.

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

diff --git a/lib/77bit/packjt77.f90 b/lib/77bit/packjt77.f90
index 56be8cc76..027db7521 100644
--- a/lib/77bit/packjt77.f90
+++ b/lib/77bit/packjt77.f90
@@ -396,15 +396,19 @@ 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
               cpfx(1:1)=a2(npfx/36+1:npfx/36+1)
               cpfx(2:2)=a2(mod(npfx,36)+1:mod(npfx,36)+1)
-           else
+           else if(npfx.gt.1295 .and. npfx.le.12959) then
               cpfx(1:1)=a2(npfx/360+1:npfx/360+1)
               cpfx(2:2)=a2(mod(npfx/10,36)+1:mod(npfx/10,36)+1)
               cpfx(3:3)=a2(mod(npfx,10)+1:mod(npfx,10)+1)
+           else
+              unpk77_success=.false.
+              return
            endif
            msg=trim(call_1)//'/'//trim(adjustl(cpfx))//' '//trim(adjustl(crpt))
         endif