Minimum absolute value and location

F_SAMIN_VAL/F_DAMIN_VAL/F_CAMIN_VAL/F_ZAMIN_VAL

Name

F_SAMIN_VAL/F_DAMIN_VAL/F_CAMIN_VAL/F_ZAMIN_VAL

 

Minimum absolute value and location

Purpose

F_xAMIN_VAL returns the smallest component of the vector x with respect to

 

the absolute value and also returns the offset or index of the smallest

 

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 < nmin(

 

Re( xi)

 

+

 

Im( xi)

 

)

 

 

 

 

VECLIB:

 

 

 

 

 

 

 

 

 

 

INTEGER*4

INCX, K, N

 

REAL*4

R

 

REAL*4

X( * )

 

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

 

INTEGER*4

INCX, K, N

 

REAL*8

R

 

REAL*8

X( * )

 

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

 

INTEGER*4

INCX, K, N

 

REAL*4

R

 

COMPLEX*8

X( * )

 

SUBROUTINE F_CAMIN_VAL (N, X, INCX, K)

 

INTEGER*4

INCX, K, N

 

REAL*8

R

 

COMPLEX*16

X( * )

SUBROUTINE F_ZAMIN_VAL (N, X, INCX, K)

VECLIB8:

INTEGER*8

INCX, K, N

REAL*4

R

REAL*4

X( * )

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

INTEGER*8

INCX, K, N

REAL*8

R

REAL*8

X( * )

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

Chapter 2 Basic Vector Operations 155