REAL FUNCTION SCASUM(N,CX,INCX)
 
a REAL function that returns the sum of the absolute values
of the real and complex parts of a complex vector.  SCASUM=
SUM(I=1 to N) ABS(REAL(CX(I))) + ABS(AIMAG(CX(I))).
 
N      Input, INTEGER N, number of elements to process in vector CX.
 
CX     Input, COMPLEX CX(N), vector to be summed.
 
INCX   Input, INTEGER INCX, increment between elements of CX.  For contiguous
       elements, INCX = 1.
 
SCASUM Output, REAL SCASUM, the sum of the absolute values of
       the entries of CX.