mirror of
https://github.com/pavel-demin/ft8d.git
synced 2024-11-14 16:11:48 -05:00
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
|