From 9f974b48e0bfa4b123b9d844043a979b8f0d966c Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Sat, 2 May 2020 13:17:32 -0400
Subject: [PATCH] Correct a flaw in ft8_decode.f90 when there are no early
 decodes.

---
 lib/ft8_decode.f90 | 4 ++++
 lib/jt9.f90        | 3 ++-
 2 files changed, 6 insertions(+), 1 deletion(-)

diff --git a/lib/ft8_decode.f90 b/lib/ft8_decode.f90
index 77add9de6..07320ca24 100644
--- a/lib/ft8_decode.f90
+++ b/lib/ft8_decode.f90
@@ -83,6 +83,10 @@ contains
     else
        ndecodes=ndec_early
     endif
+    if(nzhsym.eq.47 .and. ndec_early.eq.0) then
+       dd1=dd
+       go to 800
+    endif
     if(nzhsym.eq.47 .and. ndec_early.ge.1) then
        lsubtracted=.false.
        lrefinedt=.true.
diff --git a/lib/jt9.f90 b/lib/jt9.f90
index 7656f51e2..5d657bbe2 100644
--- a/lib/jt9.f90
+++ b/lib/jt9.f90
@@ -316,9 +316,10 @@ program jt9
         id2a(nearly*3456+1:)=0
         call multimode_decoder(shared_data%ss,id2a,      &
              shared_data%params,nfsample)
+        nearly=50
         id2a(nearly*3456+1:50*3456)=shared_data%id2(nearly*3456+1:50*3456)
         id2a(50*3456+1:)=0
-        shared_data%params%nzhsym=50
+        shared_data%params%nzhsym=nearly
         call multimode_decoder(shared_data%ss,id2a,      &
              shared_data%params,nfsample)
         cycle