![]() |
LAPACK
3.5.0
LAPACK: Linear Algebra PACKage
|
Go to the source code of this file.
Functions/Subroutines | |
REAL function | sasum (N, SX, INCX) |
SASUM |
REAL function sasum | ( | integer | N, |
real, dimension(*) | SX, | ||
integer | INCX | ||
) |
SASUM
SASUM takes the sum of the absolute values. uses unrolled loops for increment equal to one.
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(*)
Definition at line 53 of file sasum.f.