From 1f9a9654a282e3f04836fa76b90ac4234bfc0ea0 Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Tue, 19 May 2020 10:22:42 -0400
Subject: [PATCH] Catch invalid values of igrid6 and set unpk77_success=.false.

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

diff --git a/lib/77bit/packjt77.f90 b/lib/77bit/packjt77.f90
index 6be8a0841..e88153193 100644
--- a/lib/77bit/packjt77.f90
+++ b/lib/77bit/packjt77.f90
@@ -533,6 +533,10 @@ subroutine unpack77(c77,nrx,msg,unpk77_success)
 ! EU VHF contest
      read(c77,1060) n12,n22,ir,irpt,iserial,igrid6
 1060 format(b12,b22,b1,b3,b11,b25)
+     if(igrid6.lt.0 .or. igrid6.gt.18662399) then
+        unpk77_success=.false.
+        return
+     endif
      call hash12(n12,call_1)
      if(n12.eq.hashmy12) call_1='<'//trim(mycall13)//'>'
      call hash22(n22,call_2)