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

Check for invalid argument in pctile().

Browse Source
This commit is contained in:
Joe Taylor 2023-10-18 07:50:39 -04:00
parent 893565f40d
commit 97ed4022a2
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lib/pctile.f90
View File

@ -3,6 +3,7 @@ subroutine pctile(x,npts,npct,xpct)
real x(npts) real x(npts)
real,allocatable :: tmp(:) real,allocatable :: tmp(:)
if(npts.lt.0) go to 900
allocate(tmp(npts)) allocate(tmp(npts))
tmp=x tmp=x
@ -11,6 +12,7 @@ subroutine pctile(x,npts,npct,xpct)
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)
deallocate(tmp)
return 900 return
end subroutine pctile end subroutine pctile