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/ctrsm.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/ctrsm.f')
| -rw-r--r-- | BLAS/SRC/ctrsm.f | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/BLAS/SRC/ctrsm.f b/BLAS/SRC/ctrsm.f index 96ff19d5..2aeb8727 100644 --- a/BLAS/SRC/ctrsm.f +++ b/BLAS/SRC/ctrsm.f @@ -18,7 +18,7 @@ * where alpha is a scalar, X and B are m by n matrices, A is a unit, or * non-unit, upper or lower triangular matrix and op( A ) is one of * -* op( A ) = A or op( A ) = A' or op( A ) = conjg( A' ). +* op( A ) = A or op( A ) = A**T or op( A ) = A**H. * * The matrix X is overwritten on B. * @@ -51,9 +51,9 @@ * * TRANSA = 'N' or 'n' op( A ) = A. * -* TRANSA = 'T' or 't' op( A ) = A'. +* TRANSA = 'T' or 't' op( A ) = A**T. * -* TRANSA = 'C' or 'c' op( A ) = conjg( A' ). +* TRANSA = 'C' or 'c' op( A ) = A**H. * * Unchanged on exit. * @@ -245,8 +245,8 @@ END IF ELSE * -* Form B := alpha*inv( A' )*B -* or B := alpha*inv( conjg( A' ) )*B. +* Form B := alpha*inv( A**T )*B +* or B := alpha*inv( A**H )*B. * IF (UPPER) THEN DO 140 J = 1,N @@ -336,8 +336,8 @@ END IF ELSE * -* Form B := alpha*B*inv( A' ) -* or B := alpha*B*inv( conjg( A' ) ). +* Form B := alpha*B*inv( A**T ) +* or B := alpha*B*inv( A**H ). * IF (UPPER) THEN DO 330 K = N,1,-1 |