diff options
| author | julie <julielangou@users.noreply.github.com> | 2011-04-02 11:46:46 +0000 |
|---|---|---|
| committer | julie <julielangou@users.noreply.github.com> | 2011-04-02 11:46:46 +0000 |
| commit | d9d50d133bdf00870f37a31faefea58f0926a0a6 (patch) | |
| tree | eedf9e8992fc27e42ce5e71d7e7bf3dc40fc736c /BLAS/SRC/zgbmv.f | |
| parent | f2953573ede24d7f8c01fdb18de48f65f00a9943 (diff) | |
| download | lapack-d9d50d133bdf00870f37a31faefea58f0926a0a6.tar.gz lapack-d9d50d133bdf00870f37a31faefea58f0926a0a6.tar.bz2 lapack-d9d50d133bdf00870f37a31faefea58f0926a0a6.zip | |
First pass for BLAS to homgenize notation for transpose (**T) and conjugate transpose (**H)
Corresponds to bug0024
Diffstat (limited to 'BLAS/SRC/zgbmv.f')
| -rw-r--r-- | BLAS/SRC/zgbmv.f | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/BLAS/SRC/zgbmv.f b/BLAS/SRC/zgbmv.f index 35ca8044..04a29d46 100644 --- a/BLAS/SRC/zgbmv.f +++ b/BLAS/SRC/zgbmv.f @@ -13,9 +13,9 @@ * * 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 * m by n band matrix, with kl sub-diagonals and ku super-diagonals. @@ -29,9 +29,9 @@ * * 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. * @@ -274,7 +274,7 @@ END IF 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 IF (INCX.EQ.1) THEN |