w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-11-22 04:11:16 -05:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lib/77bit/packjt77.f90
View File

@ -519,6 +519,8 @@ subroutine unpack77(c77,nrx,msg,unpk77_success)
' R'//crpt//' '//cfield ' R'//crpt//' '//cfield
if(itu.eq.1 .and. ir.eq.1) msg='TU; '//trim(call_1)//' '//trim(call_2)// & if(itu.eq.1 .and. ir.eq.1) msg='TU; '//trim(call_1)//' '//trim(call_2)// &
' R'//crpt//' '//cfield ' R'//crpt//' '//cfield
else if(i3.ge.6) then ! i3 values 6 and 7 are not yet defined
unpk77_success=.false.
endif endif
! if(msg(1:4).eq.'CQ <') unpk77_success=.false. ! if(msg(1:4).eq.'CQ <') unpk77_success=.false.

3
lib/ft4_decode.f90
View File

@ -429,7 +429,8 @@ contains
message77=mod(message77+rvec,2) ! remove rvec scrambling message77=mod(message77+rvec,2) ! remove rvec scrambling
write(c77,'(77i1)') message77(1:77) write(c77,'(77i1)') message77(1:77)
call unpack77(c77,1,message,unpk77_success) 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) call get_ft4_tones_from_77bits(message77,i4tone)
dt=real(ibest)/666.67 dt=real(ibest)/666.67
call timer('subtract',0) call timer('subtract',0)