ScaLAPACK 2.1  2.1
ScaLAPACK: Scalable Linear Algebra PACKage
svasum.f
Go to the documentation of this file.
1  SUBROUTINE svasum( N, ASUM, X, INCX )
2 *
3 * -- PBLAS auxiliary routine (version 2.0) --
4 * University of Tennessee, Knoxville, Oak Ridge National Laboratory,
5 * and University of California, Berkeley.
6 * April 1, 1998
7 *
8 * .. Scalar Arguments ..
9  INTEGER INCX, N
10  REAL ASUM
11 * ..
12 * .. Array Arguments ..
13  REAL X( * )
14 * ..
15 *
16 * Purpose
17 * =======
18 *
19 * SVASUM returns the sum of absolute values of the entries of a vector
20 * x.
21 *
22 * Arguments
23 * =========
24 *
25 * N (input) INTEGER
26 * On entry, N specifies the length of the vector x. N must be
27 * at least zero.
28 *
29 * ASUM (output) REAL
30 * On exit, ASUM specifies the sum of absolute values.
31 *
32 * X (input) REAL array of dimension at least
33 * ( 1 + ( n - 1 )*abs( INCX ) ). Before entry, the incremented
34 * array X must contain the vector x.
35 *
36 * INCX (input) INTEGER
37 * On entry, INCX specifies the increment for the elements of X.
38 * INCX must not be zero.
39 *
40 * -- Written on April 1, 1998 by
41 * Antoine Petitet, University of Tennessee, Knoxville 37996, USA.
42 *
43 * =====================================================================
44 *
45 * .. External Functions ..
46  REAL SASUM
47  EXTERNAL sasum
48 * ..
49 * .. Executable Statements ..
50 *
51  asum = sasum( n, x, incx )
52 *
53  RETURN
54 *
55 * End of SVASUM
56 *
57  END
svasum
subroutine svasum(N, ASUM, X, INCX)
Definition: svasum.f:2