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