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

Restore a missing call to unpack77().

Browse Source
This commit is contained in:
Joe Taylor 2018-10-04 16:09:02 -04:00
parent 4a478184ca
commit 6cecef42aa
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lib/ft8/genft8_174_91.f90
View File

@ -17,6 +17,7 @@ subroutine genft8_174_91(msg,i3,n3,msgsent,msgbits,itone)
i3=-1 i3=-1
n3=-1 n3=-1
call pack77(msg,i3,n3,c77) call pack77(msg,i3,n3,c77)
call unpack77(c77,msgsent,unpk77_success)
read(c77,'(77i1)',err=1) msgbits read(c77,'(77i1)',err=1) msgbits
go to 2 go to 2