Consider a decode starting with "CQ <" as an invalid decode.

This commit is contained in:
Joe Taylor 2020-05-24 10:03:56 -04:00
parent 851e40a6c7
commit b31dfba67b
1 changed files with 1 additions and 1 deletions

View File

@ -550,7 +550,7 @@ subroutine unpack77(c77,nrx,msg,unpk77_success)
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.
if(msg(1:4).eq.'CQ <') unpk77_success=.false.
return
end subroutine unpack77