w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-11-22 20:28:42 -05:00
Code Issues Packages Projects Releases Wiki Activity

adjust encode77 for the new unpack77() calling sequence.

Browse Source
This commit is contained in:
Joe Taylor 2018-12-23 15:28:42 -05:00
parent 86bc2cf1fb
commit 12a328ecbe
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/encode77.f90
View File

@ -34,7 +34,7 @@ program encode77
i3=-1 i3=-1
n3=-1 n3=-1
call pack77(msg0(1:37),i3,n3,c77) call pack77(msg0(1:37),i3,n3,c77)
call unpack77(c77,msg,unpk77_success) call unpack77(c77,1,msg,unpk77_success)
cerr=' ' cerr=' '
if(msg.ne.msg0(1:37)) cerr='*' if(msg.ne.msg0(1:37)) cerr='*'
if(i3.eq.0) write(*,1004) i3,n3,cerr,msg0(1:37),msg if(i3.eq.0) write(*,1004) i3,n3,cerr,msg0(1:37),msg