1
*> \brief \b ZLANGE returns the value of the 1-norm, Frobenius norm, infinity-norm, or the largest absolute value of any element of a general rectangular matrix.
3
* =========== DOCUMENTATION ===========
5
* Online html documentation available at
6
* http://www.netlib.org/lapack/explore-html/
9
*> Download ZLANGE + dependencies
10
*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/zlange.f">
12
*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/zlange.f">
14
*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/zlange.f">
21
* DOUBLE PRECISION FUNCTION ZLANGE( NORM, M, N, A, LDA, WORK )
23
* .. Scalar Arguments ..
27
* .. Array Arguments ..
28
* DOUBLE PRECISION WORK( * )
29
* COMPLEX*16 A( LDA, * )
38
*> ZLANGE returns the value of the one norm, or the Frobenius norm, or
39
*> the infinity norm, or the element of largest absolute value of a
46
*> ZLANGE = ( max(abs(A(i,j))), NORM = 'M' or 'm'
48
*> ( norm1(A), NORM = '1', 'O' or 'o'
50
*> ( normI(A), NORM = 'I' or 'i'
52
*> ( normF(A), NORM = 'F', 'f', 'E' or 'e'
54
*> where norm1 denotes the one norm of a matrix (maximum column sum),
55
*> normI denotes the infinity norm of a matrix (maximum row sum) and
56
*> normF denotes the Frobenius norm of a matrix (square root of sum of
57
*> squares). Note that max(abs(A(i,j))) is not a consistent matrix norm.
65
*> NORM is CHARACTER*1
66
*> Specifies the value to be returned in ZLANGE as described
73
*> The number of rows of the matrix A. M >= 0. When M = 0,
74
*> ZLANGE is set to zero.
80
*> The number of columns of the matrix A. N >= 0. When N = 0,
81
*> ZLANGE is set to zero.
86
*> A is COMPLEX*16 array, dimension (LDA,N)
87
*> The m by n matrix A.
93
*> The leading dimension of the array A. LDA >= max(M,1).
98
*> WORK is DOUBLE PRECISION array, dimension (MAX(1,LWORK)),
99
*> where LWORK >= M when NORM = 'I'; otherwise, WORK is not
106
*> \author Univ. of Tennessee
107
*> \author Univ. of California Berkeley
108
*> \author Univ. of Colorado Denver
111
*> \date September 2012
113
*> \ingroup complex16GEauxiliary
115
* =====================================================================
1
116
DOUBLE PRECISION FUNCTION ZLANGE( NORM, M, N, A, LDA, WORK )
2
C$Id: zlange.f 19697 2010-10-29 16:57:34Z d3y133 $
4
* -- LAPACK auxiliary routine (version 3.0) --
5
* Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd.,
6
* Courant Institute, Argonne National Lab, and Rice University
118
* -- LAPACK auxiliary routine (version 3.4.2) --
119
* -- LAPACK is a software package provided by Univ. of Tennessee, --
120
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
9
123
* .. Scalar Arguments ..
15
129
COMPLEX*16 A( LDA, * )
21
* ZLANGE returns the value of the one norm, or the Frobenius norm, or
22
* the infinity norm, or the element of largest absolute value of a
28
* ZLANGE returns the value
30
* ZLANGE = ( max(abs(A(i,j))), NORM = 'M' or 'm'
32
* ( norm1(A), NORM = '1', 'O' or 'o'
34
* ( normI(A), NORM = 'I' or 'i'
36
* ( normF(A), NORM = 'F', 'f', 'E' or 'e'
38
* where norm1 denotes the one norm of a matrix (maximum column sum),
39
* normI denotes the infinity norm of a matrix (maximum row sum) and
40
* normF denotes the Frobenius norm of a matrix (square root of sum of
41
* squares). Note that max(abs(A(i,j))) is not a matrix norm.
46
* NORM (input) CHARACTER*1
47
* Specifies the value to be returned in ZLANGE as described
51
* The number of rows of the matrix A. M >= 0. When M = 0,
52
* ZLANGE is set to zero.
55
* The number of columns of the matrix A. N >= 0. When N = 0,
56
* ZLANGE is set to zero.
58
* A (input) COMPLEX*16 array, dimension (LDA,N)
59
* The m by n matrix A.
62
* The leading dimension of the array A. LDA >= max(M,1).
64
* WORK (workspace) DOUBLE PRECISION array, dimension (LWORK),
65
* where LWORK >= M when NORM = 'I'; otherwise, WORK is not
68
132
* =====================================================================
70
134
* .. Parameters ..
74
138
* .. Local Scalars ..
76
DOUBLE PRECISION SCALE, SUM, VALUE
140
DOUBLE PRECISION SCALE, SUM, VALUE, TEMP
78
142
* .. External Functions ..
143
LOGICAL LSAME, DISNAN
144
EXTERNAL LSAME, DISNAN
82
146
* .. External Subroutines ..
85
149
* .. Intrinsic Functions ..
86
INTRINSIC ABS, MAX, MIN, SQRT
150
INTRINSIC ABS, MIN, SQRT
88
152
* .. Executable Statements ..