From fc2273dc67eb6d60ce19e6849a9a5dea4fe3ef41 Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Mon, 12 Dec 2022 12:39:44 -0500
Subject: [PATCH] More pruning...

---
 q65w/libm65/CMakeLists.txt   |  2 --
 q65w/libm65/graycode.f90     | 10 ----------
 q65w/libm65/interleave63.f90 | 25 -------------------------
 3 files changed, 37 deletions(-)
 delete mode 100644 q65w/libm65/graycode.f90
 delete mode 100644 q65w/libm65/interleave63.f90

diff --git a/q65w/libm65/CMakeLists.txt b/q65w/libm65/CMakeLists.txt
index c13dbb910..e7fdca3b4 100644
--- a/q65w/libm65/CMakeLists.txt
+++ b/q65w/libm65/CMakeLists.txt
@@ -18,10 +18,8 @@ set (libm65_FSRCS
   ftnquit.f90
   q65b.f90
   geocentric.f90
-  graycode.f90
   grid2deg.f90
   indexx.f90
-  interleave63.f90
   iqcal.f90
   iqfix.f90
   lorentzian.f90
diff --git a/q65w/libm65/graycode.f90 b/q65w/libm65/graycode.f90
deleted file mode 100644
index 2074241a6..000000000
--- a/q65w/libm65/graycode.f90
+++ /dev/null
@@ -1,10 +0,0 @@
-subroutine graycode(dat,n,idir)
-
-  integer dat(n)
-  do i=1,n
-     dat(i)=igray(dat(i),idir)
-  enddo
-
-  return
-end subroutine graycode
-
diff --git a/q65w/libm65/interleave63.f90 b/q65w/libm65/interleave63.f90
deleted file mode 100644
index a32ef34cd..000000000
--- a/q65w/libm65/interleave63.f90
+++ /dev/null
@@ -1,25 +0,0 @@
-subroutine interleave63(d1,idir)
-
-! Interleave (idir=1) or de-interleave (idir=-1) the array d1.
-
-  integer d1(0:6,0:8)
-  integer d2(0:8,0:6)
-
-  if(idir.ge.0) then
-     do i=0,6
-        do j=0,8
-           d2(j,i)=d1(i,j)
-        enddo
-     enddo
-     call move(d2,d1,63)
-  else
-     call move(d1,d2,63)
-     do i=0,6
-        do j=0,8
-           d1(i,j)=d2(j,i)
-        enddo
-     enddo
-  endif
-         
-  return
-end subroutine interleave63