C-----------------------------------------------------------------------
C IMSL Name:  IDMAX (Single precision version)
C
C Purpose:    Find the smallest index of the component of a
C             double-precision vector having maximum value.
C
C Usage:      IDMAX(N, DX, INCX)
C
C Example:    No example available for this routine.