summaryrefslogtreecommitdiff
path: root/BLAS/SRC/sgbmv.f
diff options
context:
space:
mode:
authorjulie <julielangou@users.noreply.github.com>2011-04-02 11:46:46 (GMT)
committerjulie <julielangou@users.noreply.github.com>2011-04-02 11:46:46 (GMT)
commitd9d50d133bdf00870f37a31faefea58f0926a0a6 (patch)
treeeedf9e8992fc27e42ce5e71d7e7bf3dc40fc736c /BLAS/SRC/sgbmv.f
parentf2953573ede24d7f8c01fdb18de48f65f00a9943 (diff)
downloadlapack-d9d50d133bdf00870f37a31faefea58f0926a0a6.zip
lapack-d9d50d133bdf00870f37a31faefea58f0926a0a6.tar.gz
lapack-d9d50d133bdf00870f37a31faefea58f0926a0a6.tar.bz2
First pass for BLAS to homgenize notation for transpose (**T) and conjugate transpose (**H)
Corresponds to bug0024
Diffstat (limited to 'BLAS/SRC/sgbmv.f')
-rw-r--r--BLAS/SRC/sgbmv.f8
1 files changed, 4 insertions, 4 deletions
diff --git a/BLAS/SRC/sgbmv.f b/BLAS/SRC/sgbmv.f
index 1136f70..9c81731 100644
--- a/BLAS/SRC/sgbmv.f
+++ b/BLAS/SRC/sgbmv.f
@@ -13,7 +13,7 @@
*
* SGBMV 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
* m by n band matrix, with kl sub-diagonals and ku super-diagonals.
@@ -27,9 +27,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*A'*x + beta*y.
+* TRANS = 'C' or 'c' y := alpha*A**T*x + beta*y.
*
* Unchanged on exit.
*
@@ -266,7 +266,7 @@
END IF
ELSE
*
-* Form y := alpha*A'*x + y.
+* Form y := alpha*A**T*x + y.
*
JY = KY
IF (INCX.EQ.1) THEN