Maximum absolute value and location | F_SAMAX_VAL/F_DAMAX_VAL/F_CAMAX_VAL/F_ZAMAX_VAL |
Name | F_SAMAX_VAL/F_DAMAX_VAL/F_CAMAX_VAL/F_ZAMAX_VAL | |||||||||
| Maximum absolute value and location | |||||||||
Purpose | F_xAMAX_VAL returns the largest component of the vector x with respect to | |||||||||
| the absolute value, and also returns the offset or index of the largest component | |||||||||
| of the vector x. When the value of the n argument is less than or equal to zero, | |||||||||
| the routine should initialize the output scalars k to the largest invalid index | |||||||||
| (zero) and r to zero. The resulting scalar r is always real. | |||||||||
Usage | k, xksuch that k= arg0 ≤ i < nmax( |
| Re( xi) |
| + |
| Im( xi) |
| ) | |
|
|
|
| |||||||
VECLIB: |
|
|
|
|
|
|
|
|
| |
| INTEGER*4 | INCX, K, N | ||||||||
| REAL*4 | R, X( * ) | ||||||||
| SUBROUTINE F_SAMAX_VAL (N, X, INCX, K, R) | |||||||||
| INTEGER*4 | INCX, K, N | ||||||||
| REAL*8 | R, X( * ) | ||||||||
| SUBROUTINE F_DAMAX_VAL (N, X, INCX, K, R) | |||||||||
| INTEGER*4 | INCX, K, N | ||||||||
| REAL*4 | R | ||||||||
| COMPLEX*8 | X( * ) | ||||||||
| SUBROUTINE F_CAMAX_VAL (N, X, INCX, K, R) | |||||||||
| INTEGER*4 | INCX, K, N | ||||||||
| REAL*8 | R | ||||||||
| COMPLEX*16 | X( * ) | ||||||||
SUBROUTINE F_ZAMAX_VAL (N, X, INCX, K, R)
VECLIB8:
INTEGER*8 | INCX, K, N |
REAL*4 | R, X( * ) |
SUBROUTINE F_SAMAX_VAL (N, X, INCX, K, R) | |
INTEGER*8 | INCX, K, N |
REAL*8 | R, X( * ) |
SUBROUTINE F_DAMAX_VAL (N, X, INCX, K, R) | |
INTEGER*8 | INCX, K, N |
REAL*4 | R |
COMPLEX*8 | X( * ) |
SUBROUTINE F_CAMAX_VAL (N, X, INCX, K, R)
Chapter 2 Basic Vector Operations 153