diff --git a/map65/libm65/CMakeLists.txt b/map65/libm65/CMakeLists.txt
index 7dbad8d82..b8062c7ec 100644
--- a/map65/libm65/CMakeLists.txt
+++ b/map65/libm65/CMakeLists.txt
@@ -55,7 +55,7 @@ set (libm65_FSRCS
   nchar.f90
   noisegen.f90
   packjt.f90
-  pctile.f90
+#  pctile.f90
   pfxdump.f90
   recvpkt.f90
   rfile3a.f90
diff --git a/map65/libm65/pctile.f90 b/map65/libm65/pctile.f90
deleted file mode 100644
index 0c16aaba3..000000000
--- a/map65/libm65/pctile.f90
+++ /dev/null
@@ -1,16 +0,0 @@
-subroutine pctile(x,npts,npct,xpct)
-
-  real x(npts)
-  real,allocatable :: tmp(:)
-
-  allocate(tmp(npts))
-
-  tmp=x
-  call shell(npts,tmp)
-  j=nint(npts*0.01*npct)
-  if(j.lt.1) j=1
-  if(j.gt.npts) j=npts
-  xpct=tmp(j)
-
-  return
-end subroutine pctile