From 6c8a204d7e3c8b0b41179842434a48271e36be2f Mon Sep 17 00:00:00 2001
From: Steve Franke <s.j.franke@icloud.com>
Date: Thu, 14 Feb 2019 18:54:14 -0600
Subject: [PATCH] Make sure that message77 is initialized.

---
 lib/ft4/ft4_decode.f90 | 1 +
 1 file changed, 1 insertion(+)

diff --git a/lib/ft4/ft4_decode.f90 b/lib/ft4/ft4_decode.f90
index bab83b35e..fe983bb08 100644
--- 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)