diff options
Diffstat (limited to 'BLAS/SRC/stpmv.f')
-rw-r--r-- | BLAS/SRC/stpmv.f | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/BLAS/SRC/stpmv.f b/BLAS/SRC/stpmv.f index 3c02c275..573288e6 100644 --- a/BLAS/SRC/stpmv.f +++ b/BLAS/SRC/stpmv.f @@ -12,7 +12,7 @@ * * STPMV performs one of the matrix-vector operations * -* x := A*x, or x := A'*x, +* x := A*x, or x := A**T*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 := A'*x. +* TRANS = 'C' or 'c' x := A**T*x. * * Unchanged on exit. * @@ -224,7 +224,7 @@ END IF ELSE * -* Form x := A'*x. +* Form x := A**T*x. * IF (LSAME(UPLO,'U')) THEN KK = (N* (N+1))/2 |