w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-11-25 21:58:38 -05:00
Code Issues Packages Projects Releases Wiki Activity

Use pctile from the wsjt_fort library.

Browse Source
This commit is contained in:
Joe Taylor 2021-04-28 14:31:24 -04:00
parent cc419bcef7
commit 943ff89dcd
2 changed files with 1 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
map65/libm65/CMakeLists.txt
View File

@ -55,7 +55,7 @@ set (libm65_FSRCS
nchar.f90
noisegen.f90
packjt.f90
pctile.f90
# pctile.f90
pfxdump.f90
recvpkt.f90
rfile3a.f90

16
map65/libm65/pctile.f90
View File

@ -1,16 +0,0 @@
subroutine pctile(x,npts,npct,xpct)
real x(npts)
real,allocatable :: tmp(:)
allocate(tmp(npts))
tmp=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)
return
end subroutine pctile