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

Initialize prefix store for type 2 50-bit messages

Browse Source
This commit is contained in:
Bill Somerville 2020-07-15 01:46:52 +01:00
parent 79dbdcca9c
commit 99f419f63c
No known key found for this signature in database
GPG Key ID: D864B06D1E81618F
1 changed files with 1 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

@ -374,6 +374,7 @@ subroutine unpack77(c77,nrx,msg,unpk77_success)
call unpack28(n28,call_1,unpk28_success)
if(.not.unpk28_success) unpk77_success=.false.
write(crpt,'(i3)') idbm
cpfx=' '
if(npfx.lt.nzzz) then
! Prefix
do i=3,1,-1
@ -388,7 +389,6 @@ subroutine unpack77(c77,nrx,msg,unpk77_success)
else
! Suffix
npfx=npfx-nzzz
cpfx=' '
if(npfx.le.35) then
cpfx(1:1)=a2(npfx+1:npfx+1)
else if(npfx.gt.35 .and. npfx.le.1295) then