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/zgemm.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/zgemm.f')
-rw-r--r-- | BLAS/SRC/zgemm.f | 26 |
1 files changed, 13 insertions, 13 deletions
diff --git a/BLAS/SRC/zgemm.f b/BLAS/SRC/zgemm.f index 198e57f5..f4f98981 100644 --- a/BLAS/SRC/zgemm.f +++ b/BLAS/SRC/zgemm.f @@ -17,7 +17,7 @@ * * where op( X ) is one of * -* op( X ) = X or op( X ) = X' or op( X ) = conjg( X' ), +* op( X ) = X or op( X ) = X**T or op( X ) = X**H, * * alpha and beta are scalars, and A, B and C are matrices, with op( A ) * an m by k matrix, op( B ) a k by n matrix and C an m by n matrix. @@ -31,9 +31,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. * @@ -43,9 +43,9 @@ * * TRANSB = 'N' or 'n', op( B ) = B. * -* TRANSB = 'T' or 't', op( B ) = B'. +* TRANSB = 'T' or 't', op( B ) = B**T. * -* TRANSB = 'C' or 'c', op( B ) = conjg( B' ). +* TRANSB = 'C' or 'c', op( B ) = B**H. * * Unchanged on exit. * @@ -255,7 +255,7 @@ 90 CONTINUE ELSE IF (CONJA) THEN * -* Form C := alpha*conjg( A' )*B + beta*C. +* Form C := alpha*A**H*B + beta*C. * DO 120 J = 1,N DO 110 I = 1,M @@ -272,7 +272,7 @@ 120 CONTINUE ELSE * -* Form C := alpha*A'*B + beta*C +* Form C := alpha*A**T*B + beta*C * DO 150 J = 1,N DO 140 I = 1,M @@ -291,7 +291,7 @@ ELSE IF (NOTA) THEN IF (CONJB) THEN * -* Form C := alpha*A*conjg( B' ) + beta*C. +* Form C := alpha*A*B**H + beta*C. * DO 200 J = 1,N IF (BETA.EQ.ZERO) THEN @@ -314,7 +314,7 @@ 200 CONTINUE ELSE * -* Form C := alpha*A*B' + beta*C +* Form C := alpha*A*B**T + beta*C * DO 250 J = 1,N IF (BETA.EQ.ZERO) THEN @@ -339,7 +339,7 @@ ELSE IF (CONJA) THEN IF (CONJB) THEN * -* Form C := alpha*conjg( A' )*conjg( B' ) + beta*C. +* Form C := alpha*A**H*B**H + beta*C. * DO 280 J = 1,N DO 270 I = 1,M @@ -356,7 +356,7 @@ 280 CONTINUE ELSE * -* Form C := alpha*conjg( A' )*B' + beta*C +* Form C := alpha*A**H*B**T + beta*C * DO 310 J = 1,N DO 300 I = 1,M @@ -375,7 +375,7 @@ ELSE IF (CONJB) THEN * -* Form C := alpha*A'*conjg( B' ) + beta*C +* Form C := alpha*A**T*B**H + beta*C * DO 340 J = 1,N DO 330 I = 1,M @@ -392,7 +392,7 @@ 340 CONTINUE ELSE * -* Form C := alpha*A'*B' + beta*C +* Form C := alpha*A**T*B**T + beta*C * DO 370 J = 1,N DO 360 I = 1,M |