sasum - Return the sum of the absolute values of a vector x.
REAL FUNCTION SASUM( N, X, INCX) INTEGER N, INCX REAL X(*)
REAL FUNCTION SASUM_64( N, X, INCX) INTEGER*8 N, INCX REAL X(*)
REAL FUNCTION ASUM( [N], X, [INCX]) INTEGER :: N, INCX REAL, DIMENSION(:) :: X
REAL FUNCTION ASUM_64( [N], X, [INCX]) INTEGER(8) :: N, INCX REAL, DIMENSION(:) :: X
#include <sunperf.h>
float sasum(int n, float *x, int incx);
float sasum_64(long n, float *x, long incx);
sasum Return the sum of the absolute values of x where x is an n-vector.