From 37e05f6074c99cd8131010af5c3117c8f731392a Mon Sep 17 00:00:00 2001 From: Steven Franke Date: Fri, 31 Jul 2020 14:15:49 -0500 Subject: [PATCH] Set unpk77_success=.false. for messages with i3=0 and n3>6. --- 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 cd17e8b47..83d848f1f 100644 --- a/lib/77bit/packjt77.f90 +++ b/lib/77bit/packjt77.f90 @@ -278,6 +278,7 @@ subroutine unpack77(c77,nrx,msg,unpk77_success) read(c77(72:77),'(2b3)') n3,i3 msg=repeat(' ',37) + if(i3.eq.0 .and. n3.eq.0) then ! 0.0 Free text call unpacktext77(c77(1:71),msg(1:13)) @@ -421,7 +422,10 @@ subroutine unpack77(c77,nrx,msg,unpk77_success) if(.not.unpkg4_success) unpk77_success=.false. msg=trim(call_1)//' '//grid6 endif - + + else if(i3.eq.0 .and. n3.gt.6) then + unpk77_success=.false. + else if(i3.eq.1 .or. i3.eq.2) then ! Type 1 (standard message) or Type 2 ("/P" form for EU VHF contest) read(c77,1000) n28a,ipa,n28b,ipb,ir,igrid4,i3