| 13641 | } /* zlange_ */ |
| 13642 | |
| 13643 | doublereal zlanhe_(char *norm, char *uplo, integer *n, doublecomplex *a, |
| 13644 | integer *lda, doublereal *work) |
| 13645 | { |
| 13646 | /* System generated locals */ |
| 13647 | integer a_dim1, a_offset, i__1, i__2; |
| 13648 | doublereal ret_val, d__1, d__2, d__3; |
| 13649 | |
| 13650 | /* Local variables */ |
| 13651 | static integer i__, j; |
| 13652 | static doublereal sum, absa, scale; |
| 13653 | extern logical lsame_(char *, char *); |
| 13654 | static doublereal value; |
| 13655 | extern /* Subroutine */ int zlassq_(integer *, doublecomplex *, integer *, |
| 13656 | doublereal *, doublereal *); |
| 13657 | |
| 13658 | |
| 13659 | /* |
| 13660 | -- LAPACK auxiliary routine (version 3.2) -- |
| 13661 | -- LAPACK is a software package provided by Univ. of Tennessee, -- |
| 13662 | -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- |
| 13663 | November 2006 |
| 13664 | |
| 13665 | |
| 13666 | Purpose |
| 13667 | ======= |
| 13668 | |
| 13669 | ZLANHE returns the value of the one norm, or the Frobenius norm, or |
| 13670 | the infinity norm, or the element of largest absolute value of a |
| 13671 | complex hermitian matrix A. |
| 13672 | |
| 13673 | Description |
| 13674 | =========== |
| 13675 | |
| 13676 | ZLANHE returns the value |
| 13677 | |
| 13678 | ZLANHE = ( max(abs(A(i,j))), NORM = 'M' or 'm' |
| 13679 | ( |
| 13680 | ( norm1(A), NORM = '1', 'O' or 'o' |
| 13681 | ( |
| 13682 | ( normI(A), NORM = 'I' or 'i' |
| 13683 | ( |
| 13684 | ( normF(A), NORM = 'F', 'f', 'E' or 'e' |
| 13685 | |
| 13686 | where norm1 denotes the one norm of a matrix (maximum column sum), |
| 13687 | normI denotes the infinity norm of a matrix (maximum row sum) and |
| 13688 | normF denotes the Frobenius norm of a matrix (square root of sum of |
| 13689 | squares). Note that max(abs(A(i,j))) is not a consistent matrix norm. |
| 13690 | |
| 13691 | Arguments |
| 13692 | ========= |
| 13693 | |
| 13694 | NORM (input) CHARACTER*1 |
| 13695 | Specifies the value to be returned in ZLANHE as described |
| 13696 | above. |
| 13697 | |
| 13698 | UPLO (input) CHARACTER*1 |
| 13699 | Specifies whether the upper or lower triangular part of the |
| 13700 | hermitian matrix A is to be referenced. |