------------------------------------------------------------------------
IMSL Name:  IDMAX (Single precision version)
 
Revised:    August 9, 1986
 
Purpose:    Find the smallest index of the component of a
            double-precision vector having maximum value.
 
Usage:      IDMAX(N, DX, INCX)
 
Arguments:
   N      - Length of vector X.  (Input)
   DX     - Double precision vector of length N*INCX.  (Input)
   INCX   - Displacement between elements of DX.  (Input)
            X(I) defined to be DX(1+(I-1)*INCX). INCX must be
            greater than zero.
   IDMAX  - The smallest index I such that X(I) is the maximum of
            X(J) for J=1 to N.  (Output)
            X(I) refers to a specific element of DX. See INCX
            argument description.
 
Keyword:    Level 1 BLAS
 
GAMS:       D1a2
 
Chapters:   MATH/LIBRARY Basic Matrix/Vector Operations
            STAT/LIBRARY Mathematical Support
 
Page No.:   MATH/LIBRARY User's Manual page 1146
            STAT/LIBRARY User's Manual page 1508