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

This commit is contained in:
Steve Franke 2019-12-11 11:18:37 -06:00
parent 85b5967d99
commit 0f592eb48f
2 changed files with 4 additions and 1 deletions

View File

@ -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.

View File

@ -429,7 +429,8 @@ contains
message77=mod(message77+rvec,2) ! remove rvec scrambling
write(c77,'(77i1)') message77(1:77)
call unpack77(c77,1,message,unpk77_success)
if(unpk77_success.and.dosubtract) then
if(.not.unpk77_success) exit
if(dosubtract) then
call get_ft4_tones_from_77bits(message77,i4tone)
dt=real(ibest)/666.67
call timer('subtract',0)