/*
 * Author:  G. Jungman
 * RCS:     $Id: source_iamax_c.h,v 1.3 1999/10/18 00:45:12 jungman Exp $
 */

  BASE_TYPE max = 0.0;
  CBLAS_INDEX n;
  CBLAS_INDEX result;
  for(n=0; n<N; n++) {
    const BASE_TYPE a = fabs(REAL(X, incX, n)) + fabs(IMAG(X, incX, n));
    if(a > max) {
      max = a;
      result = n;
    }
  }
  return result;