--- rpl/lapack/lapack/zunhr_col.f 2020/05/21 21:46:12 1.1
+++ rpl/lapack/lapack/zunhr_col.f 2023/08/07 08:39:44 1.2
@@ -12,8 +12,9 @@
*>
*> [ZIP]
*>
-*> [TXT]
-*>
+*> [TXT] \endhtmlonly
+*
* Definition:
* ===========
*
@@ -112,7 +113,7 @@
*> blocks (same format as the output T in ZGEQRT).
*> The matrix T and the matrix V stored on output in A
*> implicitly define Q_out. NOTE: The lower triangles
-*> below the upper-triangular blcoks will be filled with
+*> below the upper-triangular blocks will be filled with
*> zeros. See Further Details.
*> \endverbatim
*>
@@ -217,11 +218,11 @@
*> If Q_in is the result of doing a QR factorization
*> B = Q_in * R_in, then:
*>
-*> B = (Q_out*S) * R_in = Q_out * (S * R_in) = O_out * R_out.
+*> B = (Q_out*S) * R_in = Q_out * (S * R_in) = Q_out * R_out.
*>
*> So if one wants to interpret Q_out as the result
-*> of the QR factorization of B, then corresponding R_out
-*> should be obtained by R_out = S * R_in, i.e. some rows of R_in
+*> of the QR factorization of B, then the corresponding R_out
+*> should be equal to R_out = S * R_in, i.e. some rows of R_in
*> should be multiplied by -1.
*>
*> For the details of the algorithm, see [1].
@@ -240,8 +241,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2019
-*
*> \ingroup complex16OTHERcomputational
*
*> \par Contributors:
@@ -259,10 +258,9 @@
SUBROUTINE ZUNHR_COL( M, N, NB, A, LDA, T, LDT, D, INFO )
IMPLICIT NONE
*
-* -- LAPACK computational routine (version 3.9.0) --
+* -- LAPACK computational routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* November 2019
*
* .. Scalar Arguments ..
INTEGER INFO, LDA, LDT, M, N, NB
@@ -438,4 +436,4 @@
*
* End of ZUNHR_COL
*
- END
\ No newline at end of file
+ END