diff options
Diffstat (limited to 'BLAS/SRC/csyrk.f')
-rw-r--r-- | BLAS/SRC/csyrk.f | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/BLAS/SRC/csyrk.f b/BLAS/SRC/csyrk.f index 3846631d..7b346ff0 100644 --- a/BLAS/SRC/csyrk.f +++ b/BLAS/SRC/csyrk.f @@ -13,11 +13,11 @@ * * CSYRK 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,9 +43,9 @@ * 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. * * Unchanged on exit. * @@ -212,7 +212,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 @@ -257,7 +257,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 |