version 1.2, 2010/04/21 13:45:39
|
version 1.8, 2011/07/22 07:38:20
|
Line 148
|
Line 148
|
RCOND = ZERO |
RCOND = ZERO |
SMLNUM = DLAMCH( 'Safe minimum' )*DBLE( MAX( N, 1 ) ) |
SMLNUM = DLAMCH( 'Safe minimum' )*DBLE( MAX( N, 1 ) ) |
* |
* |
* Compute the 1-norm of the triangular matrix A or A'. |
* Compute the 1-norm of the triangular matrix A or A**H. |
* |
* |
ANORM = ZLANTB( NORM, UPLO, DIAG, N, KD, AB, LDAB, RWORK ) |
ANORM = ZLANTB( NORM, UPLO, DIAG, N, KD, AB, LDAB, RWORK ) |
* |
* |
Line 177
|
Line 177
|
$ AB, LDAB, WORK, SCALE, RWORK, INFO ) |
$ AB, LDAB, WORK, SCALE, RWORK, INFO ) |
ELSE |
ELSE |
* |
* |
* Multiply by inv(A'). |
* Multiply by inv(A**H). |
* |
* |
CALL ZLATBS( UPLO, 'Conjugate transpose', DIAG, NORMIN, |
CALL ZLATBS( UPLO, 'Conjugate transpose', DIAG, NORMIN, |
$ N, KD, AB, LDAB, WORK, SCALE, RWORK, INFO ) |
$ N, KD, AB, LDAB, WORK, SCALE, RWORK, INFO ) |