From 30d37f292b8dcf910a89ac6c22826624874cb0a5 Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Thu, 15 Apr 2021 13:56:41 -0400
Subject: [PATCH] Replace variable name 'mode64' with 'mode_q65' in several
 more places.

---
 map65/libm65/map65a.f90 | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/map65/libm65/map65a.f90 b/map65/libm65/map65a.f90
index 6405a95c7..b402442d0 100644
--- a/map65/libm65/map65a.f90
+++ b/map65/libm65/map65a.f90
@@ -34,9 +34,9 @@ subroutine map65a(dd,ss,savg,newdat,nutc,fcenter,ntol,idphi,nfa,nfb,        &
   
   mode65=mod(nmode,10)
   if(mode65.eq.3) mode65=4
-  mode64=nmode/10
+  mode_q65=nmode/10
   nwrite_q65=0
-  bq65=mode64.gt.0
+  bq65=mode_q65.gt.0
   mcall3a=mcall3b
   mousefqso0=mousefqso
   xpol=(nxpol.ne.0)
@@ -226,8 +226,7 @@ subroutine map65a(dd,ss,savg,newdat,nutc,fcenter,ntol,idphi,nfa,nfb,        &
                  if(nqd.eq.2) then
                     call timer('q65     ',0)
                     call q65b(nutc,nqd,fcenter,nfcal,nfsample,ikhz,     &
-                         mousedf,ntol,xpol,mycall,hiscall,hisgrid,        &
-                         mode64)
+                         mousedf,ntol,xpol,mycall,hiscall,hisgrid,mode_q65)
                     call timer('q65     ',1)
                     cycle
                  endif