From e35410dd1ac6bfcf48c662266bd4da7849805448 Mon Sep 17 00:00:00 2001
From: Steve Franke <s.j.franke@icloud.com>
Date: Fri, 7 Sep 2018 12:16:12 +0000
Subject: [PATCH] Trap a potential array bound error.

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

diff --git a/lib/77bit/packjt77.f90 b/lib/77bit/packjt77.f90
index 42f91dcfb..6dcc5d38c 100644
--- a/lib/77bit/packjt77.f90
+++ b/lib/77bit/packjt77.f90
@@ -302,6 +302,7 @@ subroutine unpack77(c77,msg)
      read(c77,1030) n28a,n28b,ir,intx,nclass,isec
 1030 format(2b28,b1,b4,b3,b7)
      if(isec.gt.NSEC) isec=NSEC          !### Check range for other params? ###
+     if(isec.lt.1) isec=1                !### Flag these so they aren't printed? ###
      call unpack28(n28a,call_1)
      call unpack28(n28b,call_2)
      ntx=intx+1