version 1.1.1.1, 2010/01/26 15:22:45
|
version 1.7, 2011/07/22 07:38:03
|
Line 12
|
Line 12
|
* |
* |
* ZTBSV solves one of the systems of equations |
* ZTBSV solves one of the systems of equations |
* |
* |
* A*x = b, or A'*x = b, or conjg( A' )*x = b, |
* A*x = b, or A**T*x = b, or A**H*x = b, |
* |
* |
* where b and x are n element vectors and A is an n by n unit, or |
* where b and x are n element vectors and A is an n by n unit, or |
* non-unit, upper or lower triangular band matrix, with ( k + 1 ) |
* non-unit, upper or lower triangular band matrix, with ( k + 1 ) |
Line 40
|
Line 40
|
* |
* |
* TRANS = 'N' or 'n' A*x = b. |
* TRANS = 'N' or 'n' A*x = b. |
* |
* |
* TRANS = 'T' or 't' A'*x = b. |
* TRANS = 'T' or 't' A**T*x = b. |
* |
* |
* TRANS = 'C' or 'c' conjg( A' )*x = b. |
* TRANS = 'C' or 'c' A**H*x = b. |
* |
* |
* Unchanged on exit. |
* Unchanged on exit. |
* |
* |
Line 272
|
Line 272
|
END IF |
END IF |
ELSE |
ELSE |
* |
* |
* Form x := inv( A' )*x or x := inv( conjg( A') )*x. |
* Form x := inv( A**T )*x or x := inv( A**H )*x. |
* |
* |
IF (LSAME(UPLO,'U')) THEN |
IF (LSAME(UPLO,'U')) THEN |
KPLUS1 = K + 1 |
KPLUS1 = K + 1 |