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/stpsv.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/stpsv.f')
-rw-r--r-- | BLAS/SRC/stpsv.f | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/BLAS/SRC/stpsv.f b/BLAS/SRC/stpsv.f index 7d95efbd..aca8a7fc 100644 --- a/BLAS/SRC/stpsv.f +++ b/BLAS/SRC/stpsv.f @@ -12,7 +12,7 @@ * * STPSV solves one of the systems of equations * -* A*x = b, or A'*x = b, +* A*x = b, or A**T*x = b, * * where b and x are n element vectors and A is an n by n unit, or * non-unit, upper or lower triangular matrix, supplied in packed form. @@ -39,9 +39,9 @@ * * TRANS = 'N' or 'n' A*x = b. * -* TRANS = 'T' or 't' A'*x = b. +* TRANS = 'T' or 't' A**T*x = b. * -* TRANS = 'C' or 'c' A'*x = b. +* TRANS = 'C' or 'c' A**T*x = b. * * Unchanged on exit. * @@ -225,7 +225,7 @@ END IF ELSE * -* Form x := inv( A' )*x. +* Form x := inv( A**T )*x. * IF (LSAME(UPLO,'U')) THEN KK = 1 |