NAME¶

SASUM - SASUM take the sum of the absolute values

SYNOPSIS¶

REAL FUNCTION

SASUM(N,SX,INCX)

INTEGER INCX,N REAL SX(*)

PURPOSE¶

SASUM takes the sum of the absolute values.
uses unrolled loops for increment equal to one.

FURTHER DETAILS¶

jack dongarra, linpack, 3/11/78.
modified 3/93 to return if incx .le. 0.
modified 12/3/93, array(1) declarations changed to array(*)