Restore a missing call to unpack77().

2018-10-04 16:09:02 -04:00 · 2018-10-04 16:09:02 -04:00 · 6cecef42aa
parent 4a478184ca
commit 6cecef42aa
1 changed files with 1 additions and 0 deletions
--- a/lib/ft8/genft8_174_91.f90
+++ b/lib/ft8/genft8_174_91.f90
@ -17,6 +17,7 @@ subroutine genft8_174_91(msg,i3,n3,msgsent,msgbits,itone)
  i3=-1
  n3=-1
  call pack77(msg,i3,n3,c77)
+  call unpack77(c77,msgsent,unpk77_success)

  read(c77,'(77i1)',err=1) msgbits
  go to 2