DOUBLE PRECISION FUNCTION DSCNRM2( N, X, INCX )
*
* -- ScaLAPACK tools routine (version 1.5) --
* University of Tennessee, Knoxville, Oak Ridge National Laboratory, * and University of California, Berkeley. * May 1, 1997 * * .. Scalar Arguments .. INTEGER INCX, N * .. * .. Array Arguments .. COMPLEX X( * ) * ..
*
* Purpose
* .. External Functions .. REAL SCNRM2 EXTERNAL SCNRM2 * .. * .. Intrinsic Functions .. INTRINSIC DBLE * .. * .. Executable Statements .. * DSCNRM2 = DBLE( SCNRM2( N, X, INCX ) ) * RETURN * * End of DSCNRM2 * END