diff --git a/lib/77bit/packjt77.f90 b/lib/77bit/packjt77.f90 index e188069db..0f2305601 100644 --- a/lib/77bit/packjt77.f90 +++ b/lib/77bit/packjt77.f90 @@ -223,6 +223,11 @@ subroutine unpack77(c77,msg) "NB ","NS ","QC ","ON ","MB ","SK ","AB ","BC ","NWT","NF ", & "LB ","NU ","VT ","PEI","DC "/ + if(index(c77,'*').ge.1) then !Check for bad data + msg='QUIRK 2' + return + endif + read(c77(72:77),'(2b3)') n3,i3 msg=repeat(' ',37) if(i3.eq.0 .and. n3.eq.0) then @@ -422,7 +427,6 @@ subroutine unpack77(c77,msg) return end subroutine unpack77 - subroutine pack28(c13,n28) ! Pack a special token, a 22-bit hash code, or a valid base call into a 28-bit