version 1.1.1.1, 2010/01/26 15:22:45
|
version 1.7, 2011/07/22 07:38:01
|
Line 13
|
Line 13
|
* |
* |
* DGEMV performs one of the matrix-vector operations |
* DGEMV performs one of the matrix-vector operations |
* |
* |
* y := alpha*A*x + beta*y, or y := alpha*A'*x + beta*y, |
* y := alpha*A*x + beta*y, or y := alpha*A**T*x + beta*y, |
* |
* |
* where alpha and beta are scalars, x and y are vectors and A is an |
* where alpha and beta are scalars, x and y are vectors and A is an |
* m by n matrix. |
* m by n matrix. |
Line 27
|
Line 27
|
* |
* |
* TRANS = 'N' or 'n' y := alpha*A*x + beta*y. |
* TRANS = 'N' or 'n' y := alpha*A*x + beta*y. |
* |
* |
* TRANS = 'T' or 't' y := alpha*A'*x + beta*y. |
* TRANS = 'T' or 't' y := alpha*A**T*x + beta*y. |
* |
* |
* TRANS = 'C' or 'c' y := alpha*A'*x + beta*y. |
* TRANS = 'C' or 'c' y := alpha*A**T*x + beta*y. |
* |
* |
* Unchanged on exit. |
* Unchanged on exit. |
* |
* |
Line 93
|
Line 93
|
* =============== |
* =============== |
* |
* |
* 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 231
|
Line 232
|
END IF |
END IF |
ELSE |
ELSE |
* |
* |
* Form y := alpha*A'*x + y. |
* Form y := alpha*A**T*x + y. |
* |
* |
JY = KY |
JY = KY |
IF (INCX.EQ.1) THEN |
IF (INCX.EQ.1) THEN |