--- rpl/lapack/lapack/dgelqt.f 2017/06/17 11:06:15 1.2
+++ rpl/lapack/lapack/dgelqt.f 2023/08/07 08:38:48 1.6
@@ -6,7 +6,7 @@
* http://www.netlib.org/lapack/explore-html/
*
*> \htmlonly
-*> Download DGEQRT + dependencies
+*> Download DGELQT + dependencies
*>
*> [TGZ]
*>
@@ -108,8 +108,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup doubleGEcomputational
*
*> \par Further Details:
@@ -117,8 +115,8 @@
*>
*> \verbatim
*>
-*> The matrix V stores the elementary reflectors H(i) in the i-th column
-*> below the diagonal. For example, if M=5 and N=3, the matrix V is
+*> The matrix V stores the elementary reflectors H(i) in the i-th row
+*> above the diagonal. For example, if M=5 and N=3, the matrix V is
*>
*> V = ( 1 v1 v1 v1 v1 )
*> ( 1 v2 v2 v2 )
@@ -127,11 +125,11 @@
*>
*> where the vi's represent the vectors which define H(i), which are returned
*> in the matrix A. The 1's along the diagonal of V are not stored in A.
-*> Let K=MIN(M,N). The number of blocks is B = ceiling(K/NB), where each
-*> block is of order NB except for the last block, which is of order
-*> IB = K - (B-1)*NB. For each of the B blocks, a upper triangular block
-*> reflector factor is computed: T1, T2, ..., TB. The NB-by-NB (and IB-by-IB
-*> for the last block) T's are stored in the NB-by-N matrix T as
+*> Let K=MIN(M,N). The number of blocks is B = ceiling(K/MB), where each
+*> block is of order MB except for the last block, which is of order
+*> IB = K - (B-1)*MB. For each of the B blocks, a upper triangular block
+*> reflector factor is computed: T1, T2, ..., TB. The MB-by-MB (and IB-by-IB
+*> for the last block) T's are stored in the MB-by-K matrix T as
*>
*> T = (T1 T2 ... TB).
*> \endverbatim
@@ -139,10 +137,9 @@
* =====================================================================
SUBROUTINE DGELQT( M, N, MB, A, LDA, T, LDT, WORK, INFO )
*
-* -- LAPACK computational routine (version 3.7.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..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER INFO, LDA, LDT, M, N, MB
@@ -158,7 +155,7 @@
INTEGER I, IB, IINFO, K
* ..
* .. External Subroutines ..
- EXTERNAL DGEQRT2, DGEQRT3, DLARFB, XERBLA
+ EXTERNAL DGELQT3, DLARFB, XERBLA
* ..
* .. Executable Statements ..
*