https://github.com/cran/quantreg
Revision 6d5057a2e46105744eb4d62fcdc6610efeedb017 authored by Roger Koenker on 01 December 2011, 00:00:00 UTC, committed by Gabor Csardi on 01 December 2011, 00:00:00 UTC
1 parent d90516e
Tip revision: 6d5057a2e46105744eb4d62fcdc6610efeedb017 authored by Roger Koenker on 01 December 2011, 00:00:00 UTC
version 4.76
version 4.76
Tip revision: 6d5057a
idmin.f
INTEGER FUNCTION IDMIN(N,X,INCX)
INTEGER I,N,INCX
DOUBLE PRECISION X(INCX,1),SMIN
C
C THIS FUNCTION RETURNS THE INDEX OF THE SMALLEST (ALGEBRAIC)
C COMPONENT OF X. ADAPTED FROM PORT3 LIBRARY -- FEB 2008.
C ONLY EVERY INCXTH COMPONENT OF X IS CONSIDERED.
C
IDMIN=0
IF(N.EQ.0) RETURN
SMIN=X(1,1)
IDMIN=1
DO 10 I=1,N
IF(SMIN.LE.X(1,I)) GO TO 10
SMIN=X(1,I)
IDMIN=I
10 CONTINUE
RETURN
END
Computing file changes ...