Make sure that message77 is initialized.

2019-02-14 18:54:14 -06:00 · 2019-02-14 18:54:14 -06:00 · 6c8a204d7e
parent 473c7058ff
commit 6c8a204d7e
1 changed files with 1 additions and 0 deletions
--- a/lib/ft4/ft4_decode.f90
+++ b/lib/ft4/ft4_decode.f90
@ -433,6 +433,7 @@ subroutine ft4_decode(cdatetime0,tbuf,nfa,nfb,nQSOProgress,ncontest,nfqso, &
            llr=llrd
         endif
         max_iterations=40
+         message77=0
         call clockit('bpdecode',0)
         call bpdecode174_91(llr,apmask,max_iterations,message77,     &
            cw,nharderror,niterations)