mirror of https://github.com/saitohirga/WSJT-X.git
Make pctile in libm65 the same as pctile in lib.
This commit is contained in:
parent
fe6df921c9
commit
201a071128
|
@ -16,6 +16,7 @@ subroutine decode0(dd,ss,savg,nstandalone)
|
||||||
data neme0/-99/,mcall3b/1/
|
data neme0/-99/,mcall3b/1/
|
||||||
save
|
save
|
||||||
|
|
||||||
|
! write(60) ss,savg
|
||||||
call timer('decode0 ',0)
|
call timer('decode0 ',0)
|
||||||
|
|
||||||
if(newdat.ne.0) then
|
if(newdat.ne.0) then
|
||||||
|
|
|
@ -1,22 +1,16 @@
|
||||||
subroutine pctile(x,npts,npct,xpct)
|
subroutine pctile(x,npts,npct,xpct)
|
||||||
|
|
||||||
parameter (NMAX=100000)
|
real x(npts)
|
||||||
real*4 x(npts)
|
real,allocatable :: tmp(:)
|
||||||
real*4 tmp(NMAX)
|
|
||||||
|
|
||||||
if(npts.le.0) then
|
allocate(tmp(npts))
|
||||||
xpct=1.0
|
|
||||||
go to 900
|
|
||||||
endif
|
|
||||||
if(npts.gt.NMAX) stop
|
|
||||||
|
|
||||||
tmp(1:npts)=x
|
tmp=x
|
||||||
call shell(npts,tmp)
|
call shell(npts,tmp)
|
||||||
j=nint(npts*0.01*npct)
|
j=nint(npts*0.01*npct)
|
||||||
if(j.lt.1) j=1
|
if(j.lt.1) j=1
|
||||||
if(j.gt.npts) j=npts
|
if(j.gt.npts) j=npts
|
||||||
xpct=tmp(j)
|
xpct=tmp(j)
|
||||||
|
|
||||||
900 continue
|
|
||||||
return
|
return
|
||||||
end subroutine pctile
|
end subroutine pctile
|
||||||
|
|
Loading…
Reference in New Issue