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