w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-06-24 22:25:17 -04:00
Code Issues Packages Projects Releases Wiki Activity

Bring encode77.f90 up to date.

Browse Source
This commit is contained in:
Steve Franke 2018-12-23 15:34:00 -06:00
parent 86bc2cf1fb
commit b8287eb584
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