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

Initialize i3, n3 before two more calls to pack77().

Browse Source
This commit is contained in:
Joe Taylor 2018-09-19 13:05:32 -04:00
parent 55b7346ea0
commit 705004d206
2 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lib/77bit/parse77.f90
View File

@ -2,6 +2,9 @@ subroutine parse77(msg,i3,n3)
use packjt77
character msg*37,c77*77
i3=-1
n3=-1
call pack77(msg,i3,n3,c77)
return

4
lib/ft8/ft8sim2.f90
View File

@ -62,7 +62,9 @@ program ft8sim2
if(snrdb.gt.90.0) sig=1.0
txt=NN*NSPS/12000.0
! Source-encode, then get itone()
! Source-encode, then get itone()
i3=-1
n3=-1
call pack77(msg37,i3,n3,c77)
call genft8_174_91(msg37,i3,n3,msgsent37,msgbits,itone)