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

Chapter 2 Basic Vector Operations 63
Sum of magnitudes SASUM/DASUM/IASUM/SCASUM/DZASUM
INTEGER*4 n, incx
REAL*4 s, SCASUM
COMPLEX*8 x(lenx)
s = SCASUM(n, x, incx)
INTEGER*4 n, incx
REAL*8 s, DZASUM
COMPLEX*16 x(lenx)
s = DZASUM(n, x, incx)
VECLIB8:
INTEGER*8 n, incx
REAL*4 s, SASUM, x(lenx)
s = SASUM(n, x, incx)
INTEGER*8 n, incx
REAL*8 s, DASUM, x(lenx)
s = DASUM(n, x, incx)
INTEGER*8 n, incx, s, IASUM, x(lenx)
s = IASUM(n, x, incx)
INTEGER*8 n, incx
REAL*4 s, SCASUM
COMPLEX*8 x(lenx)
s = SCASUM(n, x, incx)
INTEGER*8 n, incx
REAL*8 s, DZASUM
COMPLEX*16 x(lenx)
s = DZASUM(n, x, incx)
Input n Number of elements of vector x to be used in the sum of
magnitudes. If n ≤ 0, the subprograms do not reference
x.
x Array of length lenx = (n−1)×|incx|+1 containing the
n-vector x.
incx Increment for the array x. x is stored forward in array x
with increment |incx|; that is, x
i
is stored in
x((i−1)×|incx|+1).
Use incx = 1 if the vector x is stored contiguously in
array x; that is, if x
i
is stored in x(i). Refer to “BLAS