From 935ad492e6a7e7ea6678a77087c87d3045946ae8 Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Wed, 25 Jan 2023 08:51:51 -0500
Subject: [PATCH] Starting a long process of chnging names q65w to qmap.

---
 q65w/libq65/CMakeLists.txt           | 2 +-
 q65w/libq65/decode0.f90              | 6 +++---
 q65w/libq65/ftninit.f90              | 3 +--
 q65w/libq65/{q65wa.f90 => qmapa.f90} | 4 ++--
 4 files changed, 7 insertions(+), 8 deletions(-)
 rename q65w/libq65/{q65wa.f90 => qmapa.f90} (97%)

diff --git a/q65w/libq65/CMakeLists.txt b/q65w/libq65/CMakeLists.txt
index e67b20149..15c62716e 100644
--- a/q65w/libq65/CMakeLists.txt
+++ b/q65w/libq65/CMakeLists.txt
@@ -23,7 +23,7 @@ set (libq65_FSRCS
   q65b.f90
   q65c.f90
   q65_sync.f90
-  q65wa.f90
+  qmapa.f90
   recvpkt.f90
   sun.f90
   symspec.f90
diff --git a/q65w/libq65/decode0.f90 b/q65w/libq65/decode0.f90
index 058472890..56bf392bf 100644
--- a/q65w/libq65/decode0.f90
+++ b/q65w/libq65/decode0.f90
@@ -41,12 +41,12 @@ subroutine decode0(dd,ss,savg)
   hisgrid0=hisgrid
   neme0=neme
 
-  call timer('q65wa   ',0)
-  call q65wa(dd,ss,savg,newdat,nutc,fcenter,ntol,nfa,nfb,           &
+  call timer('qmapa   ',0)
+  call qmapa(dd,ss,savg,newdat,nutc,fcenter,ntol,nfa,nfb,           &
        mousedf,mousefqso,nagain,nfshift,max_drift,                  &
        nfcal,mycall,hiscall,hisgrid,nfsample,nmode,ndepth,          &
        datetime,ndop00,fselected)
-  call timer('q65wa   ',1)
+  call timer('qmapa   ',1)
 
   return
 end subroutine decode0
diff --git a/q65w/libq65/ftninit.f90 b/q65w/libq65/ftninit.f90
index 160c80771..35f358922 100644
--- a/q65w/libq65/ftninit.f90
+++ b/q65w/libq65/ftninit.f90
@@ -1,4 +1,3 @@
-!subroutine ftninit()
 subroutine ftninit
 
   use timer_impl, only: init_timer !,fini_timer, limtrace
@@ -15,7 +14,7 @@ subroutine ftninit
   
   appd='.'
   addpfx='    '
-  open(12,file=appd//'/all_q65w.txt',status='unknown',position='append')
+  open(12,file=appd//'/all_qmap.txt',status='unknown',position='append')
   open(17,file=appd//'/red.dat',status='unknown')
   open(19,file=appd//'/livecq.txt',status='unknown')
   open(71,file=appd//'/fort.71',status='unknown')
diff --git a/q65w/libq65/q65wa.f90 b/q65w/libq65/qmapa.f90
similarity index 97%
rename from q65w/libq65/q65wa.f90
rename to q65w/libq65/qmapa.f90
index d245d1e89..0515487a7 100644
--- a/q65w/libq65/q65wa.f90
+++ b/q65w/libq65/qmapa.f90
@@ -1,4 +1,4 @@
-subroutine q65wa(dd,ss,savg,newdat,nutc,fcenter,ntol,nfa,nfb,         &
+subroutine qmapa(dd,ss,savg,newdat,nutc,fcenter,ntol,nfa,nfb,         &
      mousedf,mousefqso,nagain,nfshift,max_drift,nfcal,mycall,         &
      hiscall,hisgrid,nfsample,nmode,ndepth,datetime,ndop00,fselected)
 
@@ -71,4 +71,4 @@ subroutine q65wa(dd,ss,savg,newdat,nutc,fcenter,ntol,nfa,nfb,         &
   enddo  ! icand
 
   return
-end subroutine q65wa
+end subroutine qmapa