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