w4kek
/
WSJT-X
mirror of https://github.com/saitohirga/WSJT-X.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Update the callign sequence for unpack77, to account for the new "success" flag.

This commit is contained in:
Joe Taylor 2018-09-18 13:28:41 -04:00
parent 81d6f6a109
commit 41f9810822
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lib/77bit/encode77.f90
View File

@ -6,6 +6,7 @@ program encode77
character msg*37,cerr*1 character msg*37,cerr*1
character*77 c77 character*77 c77
character*80 infile character*80 infile
logical unpk77_success
nargs=iargc() nargs=iargc()
if(nargs.ne.1 .and.nargs.ne.2) then if(nargs.ne.1 .and.nargs.ne.2) then
@ -33,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) call unpack77(c77,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