Contents
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(*)
F95 INTERFACE
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
C INTERFACE
#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.
N (input)
On entry, N specifies the number of elements in
the vector. N must be at least one for the sub-
routine to have any visible effect. Unchanged on
exit.
X (input)
( 1 + ( n - 1 )*abs( INCX ) ). On entry, the
incremented array X must contain the vector x.
Unchanged on exit.
INCX (input)
On entry, INCX specifies the increment for the
elements of X. INCX must not be zero or negative.
Unchanged on exit.