Disallow decoded messages with i3.ge.6 as these are not yet defined.

2026-08-26 13:35:39 -04:00 · 2019-12-11 11:18:37 -06:00
parent 85b5967d99
commit 0f592eb48f
2 changed files with 4 additions and 1 deletions
@@ -519,6 +519,8 @@ subroutine unpack77(c77,nrx,msg,unpk77_success)
          ' R'//crpt//' '//cfield
     if(itu.eq.1 .and. ir.eq.1) msg='TU; '//trim(call_1)//' '//trim(call_2)//     &
          ' R'//crpt//' '//cfield
+  else if(i3.ge.6) then ! i3 values 6 and 7 are not yet defined
+     unpk77_success=.false.
  endif
 !  if(msg(1:4).eq.'CQ <') unpk77_success=.false.