LAPACK  3.6.0
LAPACK: Linear Algebra PACKage
real function sasum ( integer  N,
real, dimension(*)  SX,
integer  INCX 
)

SASUM

Purpose:
    SASUM takes the sum of the absolute values.
    uses unrolled loops for increment equal to one.
Author
Univ. of Tennessee
Univ. of California Berkeley
Univ. of Colorado Denver
NAG Ltd.
Date
November 2011
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(*)