Skip to main content

Browse the archive

https://github.com/cran/quantreg
05 April 2024, 23:45:33 UTC
Revision f7b79d0050f0b42b62f56e85c75207b9b3ae2501 authored by Roger Koenker on 01 April 2020, 09:00:03 UTC, committed by cran-robot on 01 April 2020, 09:00:03 UTC 
version 5.55
1 parent 3ad4143
Raw File
Tip revision: f7b79d0050f0b42b62f56e85c75207b9b3ae2501 authored by Roger Koenker on 01 April 2020, 09:00:03 UTC
version 5.55
Tip revision: f7b79d0
idmin.f 

        INTEGER FUNCTION IDMIN(N,X,INCX)
        INTEGER I,N,INCX
        DOUBLE PRECISION X(INCX,*),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
back to top