Correct the record length submitted to JT4 decoder when newdat is false.

2020-05-08 10:57:45 -04:00 · 2020-05-08 10:57:45 -04:00 · c92699531c
parent 558c480b42
commit c92699531c
1 changed files with 2 additions and 0 deletions
--- a/lib/decoder.f90
+++ b/lib/decoder.f90
@ -216,6 +216,8 @@ subroutine multimode_decoder(ss,id2,params,nfsample)
     if(params%newdat) then
        if(nfsample.eq.12000) call wav11(id2,jz,dd)
        if(nfsample.eq.11025) dd(1:jz)=id2(1:jz)
+     else
+        jz=52*11025
     endif
     call my_jt4%decode(jt4_decoded,dd,jz,params%nutc,params%nfqso,         &
          params%ntol,params%emedelay,params%dttol,logical(params%nagain),  &