From 7c673b41be73f675c1d391836ef553480eb4aff8 Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Fri, 9 Apr 2021 08:39:38 -0400
Subject: [PATCH] Write Q65 decodes to map65_rx.log.

---
 libm65/q65b.f90 | 15 ++++++++++++---
 1 file changed, 12 insertions(+), 3 deletions(-)

diff --git a/libm65/q65b.f90 b/libm65/q65b.f90
index 3c9ea07f8..0ab383f2a 100644
--- a/libm65/q65b.f90
+++ b/libm65/q65b.f90
@@ -123,14 +123,23 @@ subroutine q65b(nutc,nqd,fcenter,nfcal,nfsample,ikhz,mousedf,ntol,xpol,  &
 1010 format(4x,i4,f5.1,i5,4x,a40)
      nfreq=nfreq+mousedf
      if(nsnr.gt.nsnr0) then
-        write(line2,1020) ikhz,nfreq-1000,(i/2)*45,nutc,xdt,nsnr,msg40(1:30),msg40(39:40)
-1020    format('!',i3.3,i5,i4,i6,f5.1,i5,' : ',a30,2x,a2)
+        ipol0=(i/2)*45
         nsnr0=nsnr
+        write(line2,1020) ikhz,nfreq-1000,ipol0,nutc,xdt,nsnr0,msg40(1:30),msg40(39:40)
+1020    format('!',i3.3,i5,i4,i6.4,f5.1,i5,' : ',a30,2x,a2)
+        nsnr0=nsnr
+        freq0=144.0 + 0.001*ikhz
+        nfreq0=nfreq-1000
+        xdt0=xdt
      endif
   enddo
   
-100 if(nsnr0.gt.-40) write(*,1100) trim(line2)
+100 if(nsnr0.gt.-40) then
+     write(*,1100) trim(line2)
 1100 format(a)
+     write(21,1110)  freq0,nfreq0,xdt0,ipol0,nsnr0,nutc,msg40(1:28),msg40(39:40)
+1110 format(f8.3,i5,f5.1,2i4,i5.4,2x,a28,': A',2x,a2)
+  endif
   close(24,status='delete')
   
 900 return