From f7d7c073c8c30b3395177b3e8aa9faeb220b23dd Mon Sep 17 00:00:00 2001
From: K9AN <s.j.franke@icloud.com>
Date: Thu, 12 Mar 2020 15:36:03 -0500
Subject: [PATCH] Fix a bug.

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

diff --git a/lib/ft8_decode.f90 b/lib/ft8_decode.f90
index 3911bab37..9d8e9ed61 100644
--- a/lib/ft8_decode.f90
+++ b/lib/ft8_decode.f90
@@ -91,6 +91,7 @@ contains
           endif
           if(.not.ldiskdat .and. nint(ss0).ge.49) then !Bail out before done
              call timer('sub_ft8b',1)
+             dd1=dd
              go to 700
           endif
        enddo