From 701b883bcf87c3f5d7c04009cfd552580ca13560 Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Mon, 5 Apr 2021 16:54:00 -0400
Subject: [PATCH] Decode Q65 from within MAP65.  Not very elegant yet, and has
 some problems.

---
 libm65/map65a.f90 | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/libm65/map65a.f90 b/libm65/map65a.f90
index f6cc4fb2e..6f9d90b46 100644
--- a/libm65/map65a.f90
+++ b/libm65/map65a.f90
@@ -212,6 +212,7 @@ subroutine map65a(dd,ss,savg,newdat,nutc,fcenter,ntol,idphi,nfa,nfb,        &
                     call flush(13)
                     go to 999
                  endif
+
                  call timer('decode1a',0)
                  ifreq=i
                  ikHz=nint(freq+0.5*(nfa+nfb)-foffset)-nfshift
@@ -223,9 +224,9 @@ subroutine map65a(dd,ss,savg,newdat,nutc,fcenter,ntol,idphi,nfa,nfb,        &
                  call timer('decode1a',1)
                  if(nqd.eq.2) then
                     call timer('qra64   ',0)
-                    call qra64b(nutc,nqd,fcenter,nfcal,nfsample,ikhz,     &
+                    call q65b(nutc,nqd,fcenter,nfcal,nfsample,ikhz,     &
                          mousedf,ntol,xpol,mycall,hiscall,hisgrid,        &
-                         mode64,nwrite_qra64)
+                         mode64)
                     call timer('qra64   ',1)
                     cycle
                  endif