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/ssyrk.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/ssyrk.f')
-rw-r--r-- | BLAS/SRC/ssyrk.f | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/BLAS/SRC/ssyrk.f b/BLAS/SRC/ssyrk.f index a56ba40c..33b7296f 100644 --- a/BLAS/SRC/ssyrk.f +++ b/BLAS/SRC/ssyrk.f @@ -13,11 +13,11 @@ * * SSYRK performs one of the symmetric rank k operations * -* C := alpha*A*A' + beta*C, +* C := alpha*A*A**T + beta*C, * * or * -* C := alpha*A'*A + beta*C, +* C := alpha*A**T*A + beta*C, * * where alpha and beta are scalars, C is an n by n symmetric matrix * and A is an n by k matrix in the first case and a k by n matrix @@ -43,11 +43,11 @@ * On entry, TRANS specifies the operation to be performed as * follows: * -* TRANS = 'N' or 'n' C := alpha*A*A' + beta*C. +* TRANS = 'N' or 'n' C := alpha*A*A**T + beta*C. * -* TRANS = 'T' or 't' C := alpha*A'*A + beta*C. +* TRANS = 'T' or 't' C := alpha*A**T*A + beta*C. * -* TRANS = 'C' or 'c' C := alpha*A'*A + beta*C. +* TRANS = 'C' or 'c' C := alpha*A**T*A + beta*C. * * Unchanged on exit. * @@ -213,7 +213,7 @@ * IF (LSAME(TRANS,'N')) THEN * -* Form C := alpha*A*A' + beta*C. +* Form C := alpha*A*A**T + beta*C. * IF (UPPER) THEN DO 130 J = 1,N @@ -258,7 +258,7 @@ END IF ELSE * -* Form C := alpha*A'*A + beta*C. +* Form C := alpha*A**T*A + beta*C. * IF (UPPER) THEN DO 210 J = 1,N |