From b13047924945413b07f8963688444048597ad80b Mon Sep 17 00:00:00 2001
From: Steven Franke <s.j.franke@icloud.com>
Date: Fri, 6 Mar 2020 19:03:09 -0600
Subject: [PATCH] Make jt9 work with the 41/47/50 scheme.

---
 lib/jt9.f90 | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/lib/jt9.f90 b/lib/jt9.f90
index 88bcdf836..d0fa5d5ad 100644
--- a/lib/jt9.f90
+++ b/lib/jt9.f90
@@ -310,7 +310,18 @@ program jt9
         id2a(nearly*3456+1:)=0
         call multimode_decoder(shared_data%ss,id2a,                  &
              shared_data%params,nfsample)
+        nearly=47
+        shared_data%params%nzhsym=nearly
+        id2a(1:nearly*3456)=shared_data%id2(1:nearly*3456)
+        id2a(nearly*3456+1:)=0
+        call multimode_decoder(shared_data%ss,id2a,                  &
+             shared_data%params,nfsample)
+        id2a(nearly*3456+1:50*3456)=shared_data%id2(nearly*3456+1:50*3456)
+        id2a(50*3456+1:)=0
         shared_data%params%nzhsym=50
+        call multimode_decoder(shared_data%ss,id2a,                  &
+             shared_data%params,nfsample)
+        cycle
      endif
 ! Normal decoding pass
      call multimode_decoder(shared_data%ss,shared_data%id2,       &