From 6d9b436947a8f8b5aedfeb18addf3bcc0899b9e1 Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Tue, 27 Apr 2021 15:25:38 -0400
Subject: [PATCH] Save a temporary version of q65b.f90.  Still to do: remove
 the call that executes jt9.

---
 map65/libm65/q65b.f90 | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/map65/libm65/q65b.f90 b/map65/libm65/q65b.f90
index 7eaa9abce..9a52ec5fa 100644
--- a/map65/libm65/q65b.f90
+++ b/map65/libm65/q65b.f90
@@ -103,6 +103,16 @@ subroutine q65b(nutc,fcenter,nfcal,nfsample,ikhz,mousedf,ntol,xpol,  &
      write(cmnd(88:88),'(i1)') ipol
      if(ipol.eq.2) cmnd(94:94)='>'
      call execute_command_line(trim(trim(wsjtx_dir)//cmnd))
+!###
+     nsubmode=2
+     nfa=300
+     nfb=2883
+     nfqso=1000
+     newdat=1
+     nagain=0
+     call map65_mmdec(nutc,iwave,nsubmode,nfa,nfb,nfqso,ntol,newdat,nagain,  &
+     mycall,hiscall,hisgrid)
+!###
   enddo
 
   open(24,file='q65_decodes.txt',status='unknown')