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

Prese i3 and n3 to -1 in encode77.f90.

This commit is contained in:
Joe Taylor 2018-07-29 19:39:55 -04:00
parent 796f5e865f
commit 4db3c6b6cf
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lib/77bit/encode77.f90
View File

@ -30,6 +30,8 @@ program encode77
if(msg0(2:2).eq.'.' .or. msg0(3:3).eq.'.') cycle
if(msg0(1:3).eq.'---') cycle
msg0=adjustl(msg0)
i3=-1
n3=-1
call pack77(msg0(1:37),i3,n3,c77)
call unpack77(c77,msg)
cerr=' '