From 7ff3d598c80af84011212ac9feb79e1b146f5a5e Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Fri, 20 Nov 2020 15:40:25 -0500
Subject: [PATCH] Use g15 = 32403 rather than 32373 for the "RR73" message
 fragment in Q65.

---
 lib/qra/q65/genq65.f90 | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/lib/qra/q65/genq65.f90 b/lib/qra/q65/genq65.f90
index 300cbf070..4c555748a 100644
--- a/lib/qra/q65/genq65.f90
+++ b/lib/qra/q65/genq65.f90
@@ -26,6 +26,8 @@ subroutine genq65(msg0,ichk,msgsent,itone,i3,n3)
   i3=-1
   n3=-1
   call pack77(msg0,i3,n3,c77)
+  read(c77(60:74),'(b15)') ng15
+  if(ng15.eq.32373) c77(60:74)='111111010010011'    !Message is RR73
   call unpack77(c77,0,msgsent,unpk77_success)    !Unpack to get msgsent
   read(c77,1001) dgen
 1001 format(12b6.6,b5.5)