From c92699531ca08f1ed14f59276d6d1d64d3224259 Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Fri, 8 May 2020 10:57:45 -0400
Subject: [PATCH] Correct the record length submitted to JT4 decoder when
 newdat is false.

---
 lib/decoder.f90 | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/lib/decoder.f90 b/lib/decoder.f90
index 6252583d2..c7b3585b5 100644
--- 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),  &