isamax - return the index of the element with largest absolute value.
INTEGER FUNCTION ISAMAX( N, X, INCX) INTEGER N, INCX REAL X(*)
INTEGER*8 FUNCTION ISAMAX_64( N, X, INCX) INTEGER*8 N, INCX REAL X(*)
INTEGER FUNCTION IAMAX( [N], X, [INCX]) INTEGER :: N, INCX REAL, DIMENSION(:) :: X
INTEGER(8) FUNCTION IAMAX_64( [N], X, [INCX]) INTEGER(8) :: N, INCX REAL, DIMENSION(:) :: X
#include <sunperf.h>
int isamax(int n, float *x, int incx);
long isamax_64(long n, float *x, long incx);
isamax return the index of the element in x with largest absolute value where x is an n-vector.
If the vector contains all NaNs, the function returns 1. If the vector contains valid floating point numbers and one or more NaNs, the routine returns the index of the element containing the largest absolute value.