Correct the length of id2 sent to decoder for FST240W mode.

2020-07-01 15:04:15 -04:00 · 2020-07-01 15:04:15 -04:00 · 94f5e2925c
parent eb1c60e454
commit 94f5e2925c
1 changed files with 1 additions and 1 deletions
--- 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)