Revision e71c994d653adbe4d49f0fed4cb9d80ae22d8ce1 authored by Roger Koenker on 24 June 2012, 00:00:00 UTC, committed by Gabor Csardi on 24 June 2012, 00:00:00 UTC
1 parent ff94aa3
kuantile.f
C Output from Public domain Ratfor, version 1.0
subroutine kuantile(k,m,n,x)
integer i,j,k(m),m,n
double precision x(n)
j = 0
do23000 i = 1,m
call dsel05(k(i)-j,n-j,x(j+1))
j = k(i)
23000 continue
23001 continue
return
end
Computing file changes ...