--- rpl/lapack/lapack/dgejsv.f	2020/05/21 21:45:56	1.20
+++ rpl/lapack/lapack/dgejsv.f	2023/08/07 08:38:48	1.21
@@ -289,7 +289,7 @@
 *>                    singular values might be lost.
 *>
 *>          If full SVD is needed, the following two condition numbers are
-*>          useful for the analysis of the algorithm. They are provied for
+*>          useful for the analysis of the algorithm. They are provided for
 *>          a developer/implementer who is familiar with the details of
 *>          the method.
 *>
@@ -391,8 +391,6 @@
 *> \author Univ. of Colorado Denver
 *> \author NAG Ltd.
 *
-*> \date June 2016
-*
 *> \ingroup doubleGEsing
 *
 *> \par Further Details:
@@ -476,10 +474,9 @@
      $                   M, N, A, LDA, SVA, U, LDU, V, LDV,
      $                   WORK, LWORK, IWORK, INFO )
 *
-*  -- LAPACK computational routine (version 3.7.1) --
+*  -- LAPACK computational routine --
 *  -- LAPACK is a software package provided by Univ. of Tennessee,    --
 *  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-*     June 2016
 *
 *     .. Scalar Arguments ..
       IMPLICIT    NONE
@@ -932,7 +929,7 @@
 *     (eg speed by replacing global with restricted window pivoting, such
 *     as in SGEQPX from TOMS # 782). Good results will be obtained using
 *     SGEQPX with properly (!) chosen numerical parameters.
-*     Any improvement of DGEQP3 improves overal performance of DGEJSV.
+*     Any improvement of DGEQP3 improves overall performance of DGEJSV.
 *
 *     A * P1 = Q1 * [ R1^t 0]^t:
       DO 1963 p = 1, N