version 1.2, 2010/04/21 13:45:10
|
version 1.7, 2011/07/22 07:38:02
|
Line 12
|
Line 12
|
* |
* |
* DTRMV performs one of the matrix-vector operations |
* DTRMV performs one of the matrix-vector operations |
* |
* |
* x := A*x, or x := A'*x, |
* x := A*x, or x := A**T*x, |
* |
* |
* where x is an n element vector and A is an n by n unit, or non-unit, |
* where x is an n element vector and A is an n by n unit, or non-unit, |
* upper or lower triangular matrix. |
* upper or lower triangular matrix. |
Line 36
|
Line 36
|
* |
* |
* TRANS = 'N' or 'n' x := A*x. |
* TRANS = 'N' or 'n' x := A*x. |
* |
* |
* TRANS = 'T' or 't' x := A'*x. |
* TRANS = 'T' or 't' x := A**T*x. |
* |
* |
* TRANS = 'C' or 'c' x := A'*x. |
* TRANS = 'C' or 'c' x := A**T*x. |
* |
* |
* Unchanged on exit. |
* Unchanged on exit. |
* |
* |
Line 92
|
Line 92
|
* =============== |
* =============== |
* |
* |
* Level 2 Blas routine. |
* Level 2 Blas routine. |
|
* The vector and matrix arguments are not referenced when N = 0, or M = 0 |
* |
* |
* -- Written on 22-October-1986. |
* -- Written on 22-October-1986. |
* Jack Dongarra, Argonne National Lab. |
* Jack Dongarra, Argonne National Lab. |
Line 221
|
Line 222
|
END IF |
END IF |
ELSE |
ELSE |
* |
* |
* Form x := A'*x. |
* Form x := A**T*x. |
* |
* |
IF (LSAME(UPLO,'U')) THEN |
IF (LSAME(UPLO,'U')) THEN |
IF (INCX.EQ.1) THEN |
IF (INCX.EQ.1) THEN |