1      SUBROUTINE SCVASUM( 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      COMPLEX            X( * )
14*     ..
15*
16*  Purpose
17*  =======
18*
19*  SCVASUM 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) COMPLEX
30*          On exit, ASUM specifies the sum of absolute values.
31*
32*  X       (input) COMPLEX 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               SCASUM
47      EXTERNAL           SCASUM
48*     ..
49*     .. Executable Statements ..
50*
51      ASUM = SCASUM( N, X, INCX )
52*
53      RETURN
54*
55*     End of SCVASUM
56*
57      END
58