Refs #671. the return of i?max cannot larger than N.

interface/imax.c

@@ -136,6 +136,8 @@ blasint NAME(blasint *N, FLOAT *x, blasint *INCX){
 
   ret = (blasint)MAX_K(n, x, incx);
 
+  if(ret > n) ret=n;
+
   FUNCTION_PROFILE_END(COMPSIZE, n, 0);
 
   IDEBUG_END;
@@ -159,6 +161,8 @@ CBLAS_INDEX CNAME(blasint n, FLOAT *x, blasint incx){
 
   ret = MAX_K(n, x, incx);
 
+  if (ret > n) ret=n;
+
   if (ret) ret --;
 
   FUNCTION_PROFILE_END(COMPSIZE, n, 0);