WSJT-X/map65/libm65/pctile.f90

subroutine pctile(x,npts,npct,xpct)

  parameter (NMAX=100000)
  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
Move project files to map65 sub-directory Preparation for merging with the wsjtx project repository. 2021-04-09 08:57:41 -04:00			`subroutine pctile(x,npts,npct,xpct)`

			`parameter (NMAX=100000)`
			`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(npts0.01npct)`
			`if(j.lt.1) j=1`
			`if(j.gt.npts) j=npts`
			`xpct=tmp(j)`

			`900 continue`
			`return`
			`end subroutine pctile`