--- rpl/lapack/lapack/dorhr_col.f	2020/05/21 21:46:01	1.1
+++ rpl/lapack/lapack/dorhr_col.f	2023/08/07 08:39:02	1.2
@@ -13,7 +13,8 @@
 *> [ZIP]</a>
 *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/dorhr_col.f">
 *> [TXT]</a>
-*>
+*> \endhtmlonly
+*
 *  Definition:
 *  ===========
 *
@@ -112,7 +113,7 @@
 *>          blocks (same format as the output T in DGEQRT).
 *>          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 doubleOTHERcomputational
 *
 *> \par Contributors:
@@ -259,10 +258,9 @@
       SUBROUTINE DORHR_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
@@ -437,4 +435,4 @@
 *
 *     End of DORHR_COL
 *
-      END
\ No newline at end of file
+      END