w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-03-23 20:48:33 -04:00
Code Issues Packages Projects Releases Wiki Activity

unpack77: refine the acceptance criteria for unpacking type 3 FST4W messages.

Browse Source
This commit is contained in:
Steven Franke 2023-02-17 13:37:13 -06:00
parent 86965dd96b
commit 0eaf79020f
1 changed files with 16 additions and 4 deletions

20
lib/77bit/packjt77.f90
View File

@ -370,10 +370,22 @@ subroutine unpack77(c77,nrx,msg,unpk77_success)
msg=adjustl(msg)
else if(i3.eq.0 .and. n3.eq.6) then
read(c77(49:50),'(2b1)') j2a,j2b
itype=2
if(j2b.eq.0 .and. j2a.eq.0) itype=1
if(j2b.eq.0 .and. j2a.eq.1) itype=3
read(c77(48:50),'(3b1)') j48,j49,j50
! bits 48:50
! itype=1: x00
! itype=2: xx1
! itype=3: 010
if(j50.eq.1) then
itype=2
else if(j49.eq.0) then
itype=1
else if(j48.eq.0) then
itype=3
else
itype=-1
unpk77_success=.false.
endif
if(itype.eq.1) then
! WSPR Type 1
read(c77,2010) n28,igrid4,idbm