From 943ff89dcd8ea08186823fe420ea34ac70c2defd Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Wed, 28 Apr 2021 14:31:24 -0400
Subject: [PATCH] Use pctile from the wsjt_fort library.

---
 map65/libm65/CMakeLists.txt |  2 +-
 map65/libm65/pctile.f90     | 16 ----------------
 2 files changed, 1 insertion(+), 17 deletions(-)
 delete mode 100644 map65/libm65/pctile.f90

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