diff options
Diffstat (limited to 'BLAS/SRC/ztpmv.f')
| -rw-r--r-- | BLAS/SRC/ztpmv.f | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/BLAS/SRC/ztpmv.f b/BLAS/SRC/ztpmv.f index 5832692a..bf74ec04 100644 --- a/BLAS/SRC/ztpmv.f +++ b/BLAS/SRC/ztpmv.f @@ -12,7 +12,7 @@ * * ZTPMV 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 |