HP MLIB User's Guide Vol. 1 7th Ed.

104 HP MLIB User’s Guide
SMAX/DMAX/IMAX Maximum of vector
Indexing Conventions” in the introduction to this
chapter.
Output s If n ≤ 0, then s = −∞, the most negative representable
machine number. Otherwise, s is the maximum of the
elements of x.
Fortran
Equivalent
REAL*4 FUNCTION SMAX (N,X,INCX)
REAL*4 X(*)
SMAX = - ∞
INCXA = ABS ( INCX )
IX = 1
DO 10 I = 1, N
SMAX = MAX ( SMAX , X(IX) )
IX = IX + INCXA
10 CONTINUE
RETURN
END
Example Compute the maximum of the elements of REAL*8 vector x, where x is a vector
10 elements long stored in a one-dimensional array X of dimension 20.
INTEGER*4 N,INCX
REAL*8 S,DMAX,X(20)
N = 10
INCX = 1
S = DMAX (N,X,INCX)