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, &