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/ctpmv.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/ctpmv.f')
-rw-r--r-- | BLAS/SRC/ctpmv.f | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/BLAS/SRC/ctpmv.f b/BLAS/SRC/ctpmv.f index 03660f11..53b1b165 100644 --- a/BLAS/SRC/ctpmv.f +++ b/BLAS/SRC/ctpmv.f @@ -12,7 +12,7 @@ * * CTPMV performs one of the matrix-vector operations * -* x := A*x, or x := A'*x, or x := conjg( A' )*x, +* x := A*x, or x := A**T*x, or x := A**H*x, * * where x is an n element vector and A is an n by n unit, or non-unit, * upper or lower triangular matrix, supplied in packed form. @@ -36,9 +36,9 @@ * * 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 := conjg( A' )*x. +* TRANS = 'C' or 'c' x := A**H*x. * * Unchanged on exit. * @@ -228,7 +228,7 @@ END IF ELSE * -* Form x := A'*x or x := conjg( A' )*x. +* Form x := A**T*x or x := A**H*x. * IF (LSAME(UPLO,'U')) THEN KK = (N* (N+1))/2 |