w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-08-03 06:32:26 -04:00
Code Issues Packages Projects Releases Wiki Activity

Fix pctile for larger arrays.

Browse Source
This commit is contained in:
Joe Taylor 2020-12-05 11:09:27 -05:00
parent 9f8336de4e
commit 742e2ef59f
1 changed files with 4 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lib/pctile.f90
View File

@ -1,16 +1,11 @@
subroutine pctile(x,npts,npct,xpct) subroutine pctile(x,npts,npct,xpct)
parameter (NMAX=256*1024) 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