Use pctile from the wsjt_fort library.

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

map65/libm65/pctile.f90

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