From a2c3907b75b95f9993ade800c79d4a82f9bb3716 Mon Sep 17 00:00:00 2001 From: Joe Taylor Date: Mon, 16 Mar 2020 13:47:41 -0400 Subject: [PATCH] Fix a bug that affected jt9 running from command line. --- lib/jt9.f90 | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lib/jt9.f90 b/lib/jt9.f90 index d0fa5d5ad..bee033822 100644 --- a/lib/jt9.f90 +++ b/lib/jt9.f90 @@ -308,23 +308,23 @@ program jt9 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, & + call multimode_decoder(shared_data%ipc(1),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, & + call multimode_decoder(shared_data%ipc(1),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, & + call multimode_decoder(shared_data%ipc(1),shared_data%ss,id2a, & shared_data%params,nfsample) cycle endif ! Normal decoding pass - call multimode_decoder(shared_data%ss,shared_data%id2, & + call multimode_decoder(shared_data%ipc(1),shared_data%ss,shared_data%id2, & shared_data%params,nfsample) enddo