Skip to main content

Browse the archive

Revision 7e88be3871a324240d14f1311fc63a3aa1d72d82 authored by Roger Koenker on 17 December 2012, 00:00:00 UTC, committed by Gabor Csardi on 17 December 2012, 00:00:00 UTC 
version 4.94
1 parent b62e827
Raw File
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
back to top