summaryrefslogtreecommitdiff
path: root/SRC/zlauum.f
diff options
context:
space:
mode:
authorjulie <julielangou@users.noreply.github.com>2011-04-02 11:08:56 +0000
committerjulie <julielangou@users.noreply.github.com>2011-04-02 11:08:56 +0000
commitf2953573ede24d7f8c01fdb18de48f65f00a9943 (patch)
tree53172aa9083b9aa1abe2d6c130f7c173d8d8725b /SRC/zlauum.f
parent53b71f5605f83d116ab6bcf477bfb6d2ca757de1 (diff)
downloadlapack-f2953573ede24d7f8c01fdb18de48f65f00a9943.tar.gz
lapack-f2953573ede24d7f8c01fdb18de48f65f00a9943.tar.bz2
lapack-f2953573ede24d7f8c01fdb18de48f65f00a9943.zip
First pass to homgenize notation for transpose (**T) and conjugate transpose (**H)
Corresponds to bug0024
Diffstat (limited to 'SRC/zlauum.f')
-rw-r--r--SRC/zlauum.f10
1 files changed, 5 insertions, 5 deletions
diff --git a/SRC/zlauum.f b/SRC/zlauum.f
index e2aade0e..b257d02f 100644
--- a/SRC/zlauum.f
+++ b/SRC/zlauum.f
@@ -16,7 +16,7 @@
* Purpose
* =======
*
-* ZLAUUM computes the product U * U' or L' * L, where the triangular
+* ZLAUUM computes the product U * U**H or L**H * L, where the triangular
* factor U or L is stored in the upper or lower triangular part of
* the array A.
*
@@ -42,9 +42,9 @@
* A (input/output) COMPLEX*16 array, dimension (LDA,N)
* On entry, the triangular factor U or L.
* On exit, if UPLO = 'U', the upper triangle of A is
-* overwritten with the upper triangle of the product U * U';
+* overwritten with the upper triangle of the product U * U**H;
* if UPLO = 'L', the lower triangle of A is overwritten with
-* the lower triangle of the product L' * L.
+* the lower triangle of the product L**H * L.
*
* LDA (input) INTEGER
* The leading dimension of the array A. LDA >= max(1,N).
@@ -114,7 +114,7 @@
*
IF( UPPER ) THEN
*
-* Compute the product U * U'.
+* Compute the product U * U**H.
*
DO 10 I = 1, N, NB
IB = MIN( NB, N-I+1 )
@@ -134,7 +134,7 @@
10 CONTINUE
ELSE
*
-* Compute the product L' * L.
+* Compute the product L**H * L.
*
DO 20 I = 1, N, NB
IB = MIN( NB, N-I+1 )