3 integer idamax_(integer *n, doublereal *dx, integer *incx)
5 /* System generated locals */
13 /* .. Scalar Arguments .. */
15 /* .. Array Arguments .. */
21 /* finds the index of element having max. absolute value. */
22 /* jack dongarra, linpack, 3/11/78. */
23 /* modified 3/93 to return if incx .le. 0. */
24 /* modified 12/3/93, array(1) declarations changed to array(*) */
27 /* .. Local Scalars .. */
29 /* .. Intrinsic Functions .. */
31 /* Parameter adjustments */
36 if (*n < 1 || *incx <= 0) {
47 /* code for increment not equal to 1 */
53 for (i__ = 2; i__ <= i__1; ++i__) {
54 if ((d__1 = dx[ix], abs(d__1)) <= dmax__) {
58 dmax__ = (d__1 = dx[ix], abs(d__1));
65 /* code for increment equal to 1 */
70 for (i__ = 2; i__ <= i__1; ++i__) {
71 if ((d__1 = dx[i__], abs(d__1)) <= dmax__) {
75 dmax__ = (d__1 = dx[i__], abs(d__1));