| 13475 | } /* zlalsd_ */ |
| 13476 | |
| 13477 | doublereal zlange_(char *norm, integer *m, integer *n, doublecomplex *a, |
| 13478 | integer *lda, doublereal *work) |
| 13479 | { |
| 13480 | /* System generated locals */ |
| 13481 | integer a_dim1, a_offset, i__1, i__2; |
| 13482 | doublereal ret_val, d__1, d__2; |
| 13483 | |
| 13484 | /* Local variables */ |
| 13485 | static integer i__, j; |
| 13486 | static doublereal sum, scale; |
| 13487 | extern logical lsame_(char *, char *); |
| 13488 | static doublereal value; |
| 13489 | extern /* Subroutine */ int zlassq_(integer *, doublecomplex *, integer *, |
| 13490 | doublereal *, doublereal *); |
| 13491 | |
| 13492 | |
| 13493 | /* |
| 13494 | -- LAPACK auxiliary routine (version 3.2) -- |
| 13495 | -- LAPACK is a software package provided by Univ. of Tennessee, -- |
| 13496 | -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- |
| 13497 | November 2006 |
| 13498 | |
| 13499 | |
| 13500 | Purpose |
| 13501 | ======= |
| 13502 | |
| 13503 | ZLANGE returns the value of the one norm, or the Frobenius norm, or |
| 13504 | the infinity norm, or the element of largest absolute value of a |
| 13505 | complex matrix A. |
| 13506 | |
| 13507 | Description |
| 13508 | =========== |
| 13509 | |
| 13510 | ZLANGE returns the value |
| 13511 | |
| 13512 | ZLANGE = ( max(abs(A(i,j))), NORM = 'M' or 'm' |
| 13513 | ( |
| 13514 | ( norm1(A), NORM = '1', 'O' or 'o' |
| 13515 | ( |
| 13516 | ( normI(A), NORM = 'I' or 'i' |
| 13517 | ( |
| 13518 | ( normF(A), NORM = 'F', 'f', 'E' or 'e' |
| 13519 | |
| 13520 | where norm1 denotes the one norm of a matrix (maximum column sum), |
| 13521 | normI denotes the infinity norm of a matrix (maximum row sum) and |
| 13522 | normF denotes the Frobenius norm of a matrix (square root of sum of |
| 13523 | squares). Note that max(abs(A(i,j))) is not a consistent matrix norm. |
| 13524 | |
| 13525 | Arguments |
| 13526 | ========= |
| 13527 | |
| 13528 | NORM (input) CHARACTER*1 |
| 13529 | Specifies the value to be returned in ZLANGE as described |
| 13530 | above. |
| 13531 | |
| 13532 | M (input) INTEGER |
| 13533 | The number of rows of the matrix A. M >= 0. When M = 0, |
| 13534 | ZLANGE is set to zero. |