diff options
Diffstat (limited to 'BLAS/SRC/ztbsv.f')
| -rw-r--r-- | BLAS/SRC/ztbsv.f | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/BLAS/SRC/ztbsv.f b/BLAS/SRC/ztbsv.f index 42b234a7..9f3bf510 100644 --- a/BLAS/SRC/ztbsv.f +++ b/BLAS/SRC/ztbsv.f @@ -12,7 +12,7 @@ * * ZTBSV 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 band matrix, with ( k + 1 ) @@ -40,9 +40,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. * @@ -272,7 +272,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 KPLUS1 = K + 1 |