From 6c018cb53fd84d05111bd572f9ae40cc5505c334 Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Thu, 1 Dec 2022 12:36:48 -0500
Subject: [PATCH] Fix the Q65 submode indicator written to map65_rx.log.
---
map65/libm65/q65b.f90 | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/map65/libm65/q65b.f90 b/map65/libm65/q65b.f90
index 92be6528a..15c0ea11b 100644
--- a/map65/libm65/q65b.f90
+++ b/map65/libm65/q65b.f90
@@ -181,8 +181,9 @@ subroutine q65b(nutc,nqd,nxant,fcenter,nfcal,nfsample,ikhz,mousedf,ntol,xpol, &
if(nutc.ne.nutc00 .or. msg0(1:28).ne.msg00 .or. freq1.ne.freq1_00) then
! Write to file map65_rx.log:
ndecodes=ndecodes+1
- write(21,1110) freq1,ndf,xdt0,npol,nsnr0,nutc,msg0(1:28),cq0
-1110 format(f8.3,i5,f5.1,2i4,i5.4,2x,a28,': A',2x,a3)
+ write(21,1110) freq1,ndf,xdt0,npol,nsnr0,nutc,msg0(1:28), &
+ cmode(2:2),cq0
+1110 format(f8.3,i5,f5.1,2i4,i5.4,2x,a28,': ',a1,2x,a3)
nutc00=nutc
msg00=msg0(1:28)
freq1_00=freq1