w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-11-03 13:30:52 -05:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source
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(2:2).eq.'.' .or. msg0(3:3).eq.'.') cycle
if(msg0(1:3).eq.'---') cycle if(msg0(1:3).eq.'---') cycle
msg0=adjustl(msg0) msg0=adjustl(msg0)
i3=-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)
cerr=' ' cerr=' '