From 0795651f0fe06d24b96e8d9d2c72647370331341 Mon Sep 17 00:00:00 2001
From: Steve Franke <s.j.franke@icloud.com>
Date: Sat, 4 May 2019 08:05:28 -0500
Subject: [PATCH] FT4: Initialize mycall13 and dxcall13 for unpack77.

---
 lib/ft4_decode.f90 | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/lib/ft4_decode.f90 b/lib/ft4_decode.f90
index dc08df1b3..fa53f57be 100644
--- a/lib/ft4_decode.f90
+++ b/lib/ft4_decode.f90
@@ -94,6 +94,9 @@ contains
 
       this%callback => callback
       hhmmss=cdatetime0(8:13)
+      dxcall13=hiscall
+      mycall13=mycall
+
       if(first) then
          fs=12000.0/NDOWN                !Sample rate after downsampling
          dt=1/fs                         !Sample interval after downsample (s)