From d9d50d133bdf00870f37a31faefea58f0926a0a6 Mon Sep 17 00:00:00 2001 From: julie Date: Sat, 2 Apr 2011 11:46:46 +0000 Subject: First pass for BLAS to homgenize notation for transpose (**T) and conjugate transpose (**H) Corresponds to bug0024 --- BLAS/SRC/ctpmv.f | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'BLAS/SRC/ctpmv.f') diff --git a/BLAS/SRC/ctpmv.f b/BLAS/SRC/ctpmv.f index 03660f11..53b1b165 100644 --- a/BLAS/SRC/ctpmv.f +++ b/BLAS/SRC/ctpmv.f @@ -12,7 +12,7 @@ * * CTPMV performs one of the matrix-vector operations * -* x := A*x, or x := A'*x, or x := conjg( A' )*x, +* x := A*x, or x := A**T*x, or x := A**H*x, * * where x is an n element vector and A is an n by n unit, or non-unit, * upper or lower triangular matrix, supplied in packed form. @@ -36,9 +36,9 @@ * * TRANS = 'N' or 'n' x := A*x. * -* TRANS = 'T' or 't' x := A'*x. +* TRANS = 'T' or 't' x := A**T*x. * -* TRANS = 'C' or 'c' x := conjg( A' )*x. +* TRANS = 'C' or 'c' x := A**H*x. * * Unchanged on exit. * @@ -228,7 +228,7 @@ END IF ELSE * -* Form x := A'*x or x := conjg( A' )*x. +* Form x := A**T*x or x := A**H*x. * IF (LSAME(UPLO,'U')) THEN KK = (N* (N+1))/2 -- cgit v1.2.3