ScaLAPACK 2.1  2.1
ScaLAPACK: Scalable Linear Algebra PACKage
dsasum.f
Go to the documentation of this file.
1  DOUBLE PRECISION FUNCTION dsasum( N, X, INCX )
2 *
3 * -- ScaLAPACK tools routine (version 1.7) --
4 * University of Tennessee, Knoxville, Oak Ridge National Laboratory,
5 * and University of California, Berkeley.
6 * May 1, 1997
7 *
8 * .. Scalar Arguments ..
9  INTEGER incx, n
10 * ..
11 * .. Array Arguments ..
12  REAL x( * )
13 * ..
14 *
15 * Purpose
16 * =======
17 *
18 * DSASUM is a simple FORTRAN wrapper around the BLAS function SASUM
19 * returning the result as a double allowing it to be callable by C
20 * programs.
21 *
22 * =====================================================================
23 *
24 * .. External Functions ..
25  REAL sasum
26  EXTERNAL sasum
27 * ..
28 * .. Intrinsic Functions ..
29  INTRINSIC dble
30 * ..
31 * .. Executable Statements ..
32 *
33  dsasum = dble( sasum( n, x, incx ) )
34 *
35  RETURN
36 *
37 * End of DSASUM
38 *
39  END
dsasum
double precision function dsasum(N, X, INCX)
Definition: dsasum.f:2