mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-12-24 11:40:31 -05:00
9d89cc0719
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7723 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
23 lines
348 B
Fortran
23 lines
348 B
Fortran
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
|