From 94f5e2925c9faddb2b8601c3109c9c64c0d2b176 Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Wed, 1 Jul 2020 15:04:15 -0400
Subject: [PATCH] Correct the length of id2 sent to decoder for FST240W mode.

---
 lib/jt9.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/jt9.f90 b/lib/jt9.f90
index dcfbb07b6..43af4673b 100644
--- a/lib/jt9.f90
+++ b/lib/jt9.f90
@@ -245,7 +245,7 @@ program jt9
               call timer('symspec ',1)
            endif
            nhsym0=nhsym
-           if(nhsym.ge.181 .and. mode.ne.240) exit
+           if(nhsym.ge.181 .and. mode.ne.240 .and. mode.ne.241) exit
         endif
      enddo
      close(unit=wav%lun)