From 226c59982b029856f451460a791808f01436617e Mon Sep 17 00:00:00 2001 From: Joe Taylor Date: Mon, 18 Oct 2021 13:24:29 -0400 Subject: [PATCH] Fix the calls to unpack77 in q65_decode.f90 so that they set nrx=1. --- lib/q65_decode.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lib/q65_decode.f90 b/lib/q65_decode.f90 index 207026053..d3bb5dbd5 100644 --- a/lib/q65_decode.f90 +++ b/lib/q65_decode.f90 @@ -249,7 +249,7 @@ contains ! Unpack decoded message for display to user write(c77,1000) dat4(1:12),dat4(13)/2 1000 format(12b6.6,b5.5) - call unpack77(c77,0,decoded,unpk77_success) !Unpack to get msgsent + call unpack77(c77,1,decoded,unpk77_success) !Unpack to get msgsent call q65_snr(dat4,dtdec,f0dec,mode_q65,nused,snr2) nsnr=nint(snr2) call this%callback(nutc,snr1,nsnr,dtdec,f0dec,decoded, & @@ -325,7 +325,7 @@ contains if(idec.ge.0) then ! Unpack decoded message for display to user write(c77,1000) dat4(1:12),dat4(13)/2 - call unpack77(c77,0,decoded,unpk77_success) !Unpack to get msgsent + call unpack77(c77,1,decoded,unpk77_success) !Unpack to get msgsent call q65_snr(dat4,dtdec,f0dec,mode_q65,nused,snr2) nsnr=nint(snr2) call this%callback(nutc,snr1,nsnr,dtdec,f0dec,decoded, &