Initial Commit

2018-02-08 21:28:33 -05:00
commit 678c1d3966
14352 changed files with 3176737 additions and 0 deletions
@@ -0,0 +1,22 @@
+subroutine pctile(x,npts,npct,xpct)
+
+  parameter (NMAX=128*1024)
+  real*4 x(npts)
+  real*4 tmp(NMAX)
+
+  if(npts.le.0) then
+     xpct=1.0
+     go to 900
+  endif
+  if(npts.gt.NMAX) stop
+
+  tmp(1:npts)=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)
+
+900 continue
+  return
+end subroutine pctile