diff options
Diffstat (limited to 'SRC/zungbr.f')
| -rw-r--r-- | SRC/zungbr.f | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/SRC/zungbr.f b/SRC/zungbr.f index 6d372212..c918ee3f 100644 --- a/SRC/zungbr.f +++ b/SRC/zungbr.f @@ -202,7 +202,7 @@ END IF ELSE * -* Form P', determined by a call to ZGEBRD to reduce a k-by-n +* Form P**H, determined by a call to ZGEBRD to reduce a k-by-n * matrix * IF( K.LT.N ) THEN @@ -216,7 +216,7 @@ * If k >= n, assume m = n * * Shift the vectors which define the elementary reflectors one -* row downward, and set the first row and column of P' to +* row downward, and set the first row and column of P**H to * those of the unit matrix * A( 1, 1 ) = ONE @@ -231,7 +231,7 @@ 60 CONTINUE IF( N.GT.1 ) THEN * -* Form P'(2:n,2:n) +* Form P**H(2:n,2:n) * CALL ZUNGLQ( N-1, N-1, N-1, A( 2, 2 ), LDA, TAU, WORK, $ LWORK, IINFO ) |