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