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

Another tweak to protect against invalid argument in pctile().

Browse Source
This commit is contained in:
Joe Taylor 2023-10-18 08:01:47 -04:00
parent 97ed4022a2
commit e8162970de
1 changed files with 4 additions and 1 deletions

5
lib/pctile.f90
View File

@ -3,7 +3,10 @@ subroutine pctile(x,npts,npct,xpct)
real x(npts)
real,allocatable :: tmp(:)
if(npts.lt.0) go to 900
if(npts.lt.0 .or. npct.lt.0 .or. npct.gt.100) then
xpct=1.0
go to 900
endif
allocate(tmp(npts))
tmp=x