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