diff options
Diffstat (limited to 'BLAS/SRC/cgemv.f')
| -rw-r--r-- | BLAS/SRC/cgemv.f | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/BLAS/SRC/cgemv.f b/BLAS/SRC/cgemv.f index b39e8dc5..d9e55f9a 100644 --- a/BLAS/SRC/cgemv.f +++ b/BLAS/SRC/cgemv.f @@ -13,9 +13,9 @@ * * CGEMV performs one of the matrix-vector operations * -* y := alpha*A*x + beta*y, or y := alpha*A'*x + beta*y, or +* y := alpha*A*x + beta*y, or y := alpha*A**T*x + beta*y, or * -* y := alpha*conjg( A' )*x + beta*y, +* y := alpha*A**H*x + beta*y, * * where alpha and beta are scalars, x and y are vectors and A is an * m by n matrix. @@ -29,9 +29,9 @@ * * TRANS = 'N' or 'n' y := alpha*A*x + beta*y. * -* TRANS = 'T' or 't' y := alpha*A'*x + beta*y. +* TRANS = 'T' or 't' y := alpha*A**T*x + beta*y. * -* TRANS = 'C' or 'c' y := alpha*conjg( A' )*x + beta*y. +* TRANS = 'C' or 'c' y := alpha*A**H*x + beta*y. * * Unchanged on exit. * @@ -239,7 +239,7 @@ END IF ELSE * -* Form y := alpha*A'*x + y or y := alpha*conjg( A' )*x + y. +* Form y := alpha*A**T*x + y or y := alpha*A**H*x + y. * JY = KY IF (INCX.EQ.1) THEN |