version 1.4, 2010/08/07 13:22:09
|
version 1.7, 2011/07/22 07:38:02
|
Line 12
|
Line 12
|
* |
* |
* DTRSV solves one of the systems of equations |
* DTRSV solves one of the systems of equations |
* |
* |
* A*x = b, or A'*x = b, |
* A*x = b, or A**T*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 matrix. |
* non-unit, upper or lower triangular matrix. |
Line 39
|
Line 39
|
* |
* |
* 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' A'*x = b. |
* TRANS = 'C' or 'c' A**T*x = b. |
* |
* |
* Unchanged on exit. |
* Unchanged on exit. |
* |
* |
Line 221
|
Line 221
|
END IF |
END IF |
ELSE |
ELSE |
* |
* |
* Form x := inv( A' )*x. |
* Form x := inv( A**T )*x. |
* |
* |
IF (LSAME(UPLO,'U')) THEN |
IF (LSAME(UPLO,'U')) THEN |
IF (INCX.EQ.1) THEN |
IF (INCX.EQ.1) THEN |