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

2018-09-19 13:05:32 -04:00 · 2018-09-19 13:05:32 -04:00 · 705004d206
parent 55b7346ea0
commit 705004d206
2 changed files with 6 additions and 1 deletions
--- a/lib/77bit/parse77.f90
+++ b/lib/77bit/parse77.f90
@ -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
--- a/lib/ft8/ft8sim2.f90
+++ b/lib/ft8/ft8sim2.f90
@ -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)