| 13571 | } /* clange_ */ |
| 13572 | |
| 13573 | doublereal clanhe_(char *norm, char *uplo, integer *n, complex *a, integer * |
| 13574 | lda, real *work) |
| 13575 | { |
| 13576 | /* System generated locals */ |
| 13577 | integer a_dim1, a_offset, i__1, i__2; |
| 13578 | real ret_val, r__1, r__2, r__3; |
| 13579 | |
| 13580 | /* Local variables */ |
| 13581 | static integer i__, j; |
| 13582 | static real sum, absa, scale; |
| 13583 | extern logical lsame_(char *, char *); |
| 13584 | static real value; |
| 13585 | extern /* Subroutine */ int classq_(integer *, complex *, integer *, real |
| 13586 | *, real *); |
| 13587 | |
| 13588 | |
| 13589 | /* |
| 13590 | -- LAPACK auxiliary routine (version 3.2) -- |
| 13591 | -- LAPACK is a software package provided by Univ. of Tennessee, -- |
| 13592 | -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- |
| 13593 | November 2006 |
| 13594 | |
| 13595 | |
| 13596 | Purpose |
| 13597 | ======= |
| 13598 | |
| 13599 | CLANHE returns the value of the one norm, or the Frobenius norm, or |
| 13600 | the infinity norm, or the element of largest absolute value of a |
| 13601 | complex hermitian matrix A. |
| 13602 | |
| 13603 | Description |
| 13604 | =========== |
| 13605 | |
| 13606 | CLANHE returns the value |
| 13607 | |
| 13608 | CLANHE = ( max(abs(A(i,j))), NORM = 'M' or 'm' |
| 13609 | ( |
| 13610 | ( norm1(A), NORM = '1', 'O' or 'o' |
| 13611 | ( |
| 13612 | ( normI(A), NORM = 'I' or 'i' |
| 13613 | ( |
| 13614 | ( normF(A), NORM = 'F', 'f', 'E' or 'e' |
| 13615 | |
| 13616 | where norm1 denotes the one norm of a matrix (maximum column sum), |
| 13617 | normI denotes the infinity norm of a matrix (maximum row sum) and |
| 13618 | normF denotes the Frobenius norm of a matrix (square root of sum of |
| 13619 | squares). Note that max(abs(A(i,j))) is not a consistent matrix norm. |
| 13620 | |
| 13621 | Arguments |
| 13622 | ========= |
| 13623 | |
| 13624 | NORM (input) CHARACTER*1 |
| 13625 | Specifies the value to be returned in CLANHE as described |
| 13626 | above. |
| 13627 | |
| 13628 | UPLO (input) CHARACTER*1 |
| 13629 | Specifies whether the upper or lower triangular part of the |
| 13630 | hermitian matrix A is to be referenced. |