ScaLAPACK 2.1  2.1
ScaLAPACK: Scalable Linear Algebra PACKage
dscasum.f
Go to the documentation of this file.
1  DOUBLE PRECISION FUNCTION dscasum( 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  COMPLEX x( * )
13 * ..
14 *
15 * Purpose
16 * =======
17 *
18 * DSCASUM is a simple FORTRAN wrapper around the BLAS function SCASUM
19 * returning the result as a double allowing it to be callable by C
20 * programs.
21 *
22 * =====================================================================
23 *
24 * .. External Functions ..
25  REAL scasum
26  EXTERNAL scasum
27 * ..
28 * .. Intrinsic Functions ..
29  INTRINSIC dble
30 * ..
31 * .. Executable Statements ..
32 *
33  dscasum = dble( scasum( n, x, incx ) )
34 *
35  RETURN
36 *
37 * End of DSCASUM
38 *
39  END
dscasum
double precision function dscasum(N, X, INCX)
Definition: dscasum.f:2