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