From d57e92d702c0fbdf1a5ccc2bfbb0ace2fe0b1835 Mon Sep 17 00:00:00 2001
From: Steven Franke <s.j.franke@icloud.com>
Date: Thu, 21 May 2020 11:43:23 -0500
Subject: [PATCH] Make sure that mycall13 and dxcall13 are initialized in FT4
 mode.

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

diff --git a/lib/ft4_decode.f90 b/lib/ft4_decode.f90
index fe6ce0863..b15368a4b 100644
--- a/lib/ft4_decode.f90
+++ b/lib/ft4_decode.f90
@@ -87,6 +87,9 @@ contains
 
       this%callback => callback
       hhmmss=cdatetime0(8:13)
+      dxcall13=hiscall        ! initialize for use in packjt77
+      mycall13=mycall
+
       smax1=0.
       nd1=0