version 1.1, 2010/01/26 15:22:45
|
version 1.7, 2011/07/22 07:38:02
|
Line 13
|
Line 13
|
* |
* |
* ZGBMV performs one of the matrix-vector operations |
* ZGBMV performs one of the matrix-vector operations |
* |
* |
* y := alpha*A*x + beta*y, or y := alpha*A'*x + beta*y, or |
* y := alpha*A*x + beta*y, or y := alpha*A**T*x + beta*y, or |
* |
* |
* y := alpha*conjg( A' )*x + beta*y, |
* y := alpha*A**H*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 band matrix, with kl sub-diagonals and ku super-diagonals. |
* m by n band matrix, with kl sub-diagonals and ku super-diagonals. |
Line 29
|
Line 29
|
* |
* |
* 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*conjg( A' )*x + beta*y. |
* TRANS = 'C' or 'c' y := alpha*A**H*x + beta*y. |
* |
* |
* Unchanged on exit. |
* Unchanged on exit. |
* |
* |
Line 122
|
Line 122
|
* =============== |
* =============== |
* |
* |
* 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 273
|
Line 274
|
END IF |
END IF |
ELSE |
ELSE |
* |
* |
* Form y := alpha*A'*x + y or y := alpha*conjg( A' )*x + y. |
* Form y := alpha*A**T*x + y or y := alpha*A**H*x + y. |
* |
* |
JY = KY |
JY = KY |
IF (INCX.EQ.1) THEN |
IF (INCX.EQ.1) THEN |