1CLANHP(1) LAPACK auxiliary routine (version 3.1) CLANHP(1)
2
3
4
6 CLANHP - the value of the one norm, or the Frobenius norm, or the
7 infinity norm, or the element of largest absolute value of a complex
8 hermitian matrix A, supplied in packed form
9
11 REAL FUNCTION CLANHP( NORM, UPLO, N, AP, WORK )
12
13 CHARACTER NORM, UPLO
14
15 INTEGER N
16
17 REAL WORK( * )
18
19 COMPLEX AP( * )
20
22 CLANHP returns the value of the one norm, or the Frobenius norm, or
23 the infinity norm, or the element of largest absolute value of a
24 complex hermitian matrix A, supplied in packed form.
25
26
28 CLANHP returns the value
29
30 CLANHP = ( max(abs(A(i,j))), NORM = 'M' or 'm'
31 (
32 ( norm1(A), NORM = '1', 'O' or 'o'
33 (
34 ( normI(A), NORM = 'I' or 'i'
35 (
36 ( normF(A), NORM = 'F', 'f', 'E' or 'e'
37
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 consistent matrix
42 norm.
43
44
46 NORM (input) CHARACTER*1
47 Specifies the value to be returned in CLANHP as described
48 above.
49
50 UPLO (input) CHARACTER*1
51 Specifies whether the upper or lower triangular part of the
52 hermitian matrix A is supplied. = 'U': Upper triangular part
53 of A is supplied
54 = 'L': Lower triangular part of A is supplied
55
56 N (input) INTEGER
57 The order of the matrix A. N >= 0. When N = 0, CLANHP is set
58 to zero.
59
60 AP (input) COMPLEX array, dimension (N*(N+1)/2)
61 The upper or lower triangle of the hermitian matrix A, packed
62 columnwise in a linear array. The j-th column of A is stored
63 in the array AP as follows: if UPLO = 'U', AP(i + (j-1)*j/2) =
64 A(i,j) for 1<=i<=j; if UPLO = 'L', AP(i + (j-1)*(2n-j)/2) =
65 A(i,j) for j<=i<=n. Note that the imaginary parts of the
66 diagonal elements need not be set and are assumed to be zero.
67
68 WORK (workspace) REAL array, dimension (MAX(1,LWORK)),
69 where LWORK >= N when NORM = 'I' or '1' or 'O'; otherwise, WORK
70 is not referenced.
71
72
73
74 LAPACK auxiliary routine (versionNo3v.e1m)ber 2006 CLANHP(1)