More pruning...

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

q65w/libm65/graycode.f90

@@ -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
-

q65w/libm65/interleave63.f90

@@ -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