ScaLAPACK  2.0.2
ScaLAPACK: Scalable Linear Algebra PACKage
dsnrm2.f
Go to the documentation of this file.
00001       DOUBLE PRECISION   FUNCTION DSNRM2( N, X, INCX )
00002 *
00003 *  -- ScaLAPACK tools routine (version 1.7) --
00004 *     University of Tennessee, Knoxville, Oak Ridge National Laboratory,
00005 *     and University of California, Berkeley.
00006 *     May 1, 1997
00007 *
00008 *     .. Scalar Arguments ..
00009       INTEGER            INCX, N
00010 *     ..
00011 *     .. Array Arguments ..
00012       REAL               X( * )
00013 *     ..
00014 *
00015 *  Purpose
00016 *  =======
00017 *
00018 *  DSNRM2 is a simple FORTRAN wrapper around the BLAS function SNRM2
00019 *  returning the result as a double allowing it to be callable by C
00020 *  programs.
00021 *
00022 *  =====================================================================
00023 *
00024 *     .. External Functions ..
00025       REAL               SNRM2
00026       EXTERNAL           SNRM2
00027 *     ..
00028 *     .. Intrinsic Functions ..
00029       INTRINSIC          DBLE
00030 *     ..
00031 *     .. Executable Statements ..
00032 *
00033       DSNRM2 = DBLE( SNRM2( N, X, INCX ) )
00034 *
00035       RETURN
00036 *
00037 *     End of DSNRM2
00038 *
00039       END