F_SAMAX_VAL/F_DAMAX_VAL/F_CAMAX_VAL/F_ZAMAX_VAL

Maximum absolute value and location

 

INTEGER*8

INCX, K, N

 

 

 

 

 

REAL*8

R

 

 

 

 

 

COMPLEX*16

X( * )

 

 

 

 

 

SUBROUTINE F_ZAMAX_VAL (N, X, INCX, K, R)

 

Input

N

Number of elements of vector x.

 

 

X

REAL or COMPLEX array, minimum length

 

 

(N - 1) x incx + 1.

 

 

 

 

 

INCX

Increment for the array x. A vector x having component

 

 

xi, i = 1,..., n, is stored in an array X() with increment

 

 

argument incx. If incx > 0 then xi is stored in

 

 

X (1 + (i - 1) x incx). If incx < 0 then xi is stored in

 

 

X (1 + (N - i) x incx). incx = 0 is an illegal value.

Output

K

Displacement returned by the routine. The smallest

 

 

offset or index such that

 

 

R

xk= max(

 

Re( xi)

 

+

 

Im( xi)

 

)

(where 0 i < n)

 

 

 

 

 

 

REAL scalar. The largest component of the vector x.

154HP MLIB User’s Guide