NAME

scsum1 - take the sum of the absolute values of a complex vector and returns a single precision result

SYNOPSIS

REAL FUNCTION
SCSUM1( N, CX, INCX )

double scsum1(long int n, complex ∗cx, long int incx)

INTEGER INCX, N

COMPLEX CX( ∗ )

PURPOSE

SCSUM1 takes the sum of the absolute values of a complex vector and returns a single precision result. 
 
Based on SCASUM from the Level 1 BLAS.
The change is to use the ’genuine’ absolute value.
 
Contributed by Nick Higham for use with CLACON.
 

ARGUMENTS

N       (input) INTEGER
The number of elements in the vector CX.

CX      (input) COMPLEX array, dimension (N)
The vector whose elements will be summed.

INCX    (input) INTEGER
The spacing between successive values of CX.  INCX > 0.

Sun, Inc.  —  Last change: 20 Sep 1996