mirror of https://github.com/saitohirga/WSJT-X.git
Initialize prefix store for type 2 50-bit messages
This commit is contained in:
parent
79dbdcca9c
commit
99f419f63c
|
@ -374,6 +374,7 @@ subroutine unpack77(c77,nrx,msg,unpk77_success)
|
||||||
call unpack28(n28,call_1,unpk28_success)
|
call unpack28(n28,call_1,unpk28_success)
|
||||||
if(.not.unpk28_success) unpk77_success=.false.
|
if(.not.unpk28_success) unpk77_success=.false.
|
||||||
write(crpt,'(i3)') idbm
|
write(crpt,'(i3)') idbm
|
||||||
|
cpfx=' '
|
||||||
if(npfx.lt.nzzz) then
|
if(npfx.lt.nzzz) then
|
||||||
! Prefix
|
! Prefix
|
||||||
do i=3,1,-1
|
do i=3,1,-1
|
||||||
|
@ -388,7 +389,6 @@ subroutine unpack77(c77,nrx,msg,unpk77_success)
|
||||||
else
|
else
|
||||||
! Suffix
|
! Suffix
|
||||||
npfx=npfx-nzzz
|
npfx=npfx-nzzz
|
||||||
cpfx=' '
|
|
||||||
if(npfx.le.35) then
|
if(npfx.le.35) then
|
||||||
cpfx(1:1)=a2(npfx+1:npfx+1)
|
cpfx(1:1)=a2(npfx+1:npfx+1)
|
||||||
else if(npfx.gt.35 .and. npfx.le.1295) then
|
else if(npfx.gt.35 .and. npfx.le.1295) then
|
||||||
|
|
Loading…
Reference in New Issue