diff options
Diffstat (limited to 'BLAS/SRC/ctpsv.f')
| -rw-r--r-- | BLAS/SRC/ctpsv.f | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/BLAS/SRC/ctpsv.f b/BLAS/SRC/ctpsv.f index 1804797e..3a7da00c 100644 --- a/BLAS/SRC/ctpsv.f +++ b/BLAS/SRC/ctpsv.f @@ -12,7 +12,7 @@ * * CTPSV solves one of the systems of equations * -* A*x = b, or A'*x = b, or conjg( A' )*x = b, +* A*x = b, or A**T*x = b, or A**H*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' conjg( A' )*x = b. +* TRANS = 'C' or 'c' A**H*x = b. * * Unchanged on exit. * @@ -229,7 +229,7 @@ END IF ELSE * -* Form x := inv( A' )*x or x := inv( conjg( A' ) )*x. +* Form x := inv( A**T )*x or x := inv( A**H )*x. * IF (LSAME(UPLO,'U')) THEN KK = 1 |