w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-08-03 14:42:25 -04:00
Code Issues Packages Projects Releases Wiki Activity

Repair own call hash decoding in received messages

Browse Source
This commit is contained in:
Bill Somerville 2020-07-20 21:24:45 +01:00
parent 09996d4d64
commit 7d07423a50
No known key found for this signature in database
GPG Key ID: D864B06D1E81618F
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lib/fst240_decode.f90
View File

@ -539,11 +539,11 @@ contains
endif endif
if(iqorw.eq.1) then if(iqorw.eq.1) then
write(c77,'(77i1)') mod(message101(1:77)+rvec,2) write(c77,'(77i1)') mod(message101(1:77)+rvec,2)
call unpack77(c77,0,msg,unpk77_success) call unpack77(c77,1,msg,unpk77_success)
else else
write(c77,'(50i1)') message74(1:50) write(c77,'(50i1)') message74(1:50)
c77(51:77)='000000000000000000000110000' c77(51:77)='000000000000000000000110000'
call unpack77(c77,0,msg,unpk77_success) call unpack77(c77,1,msg,unpk77_success)
endif endif
if(unpk77_success) then if(unpk77_success) then
idupe=0 idupe=0