--- rpl/lapack/lapack/slamch.f	2020/05/21 21:46:03	1.10
+++ rpl/lapack/lapack/slamch.f	2023/08/07 08:39:14	1.11
@@ -61,17 +61,14 @@
 *> \author Univ. of Colorado Denver
 *> \author NAG Ltd.
 *
-*> \date December 2016
-*
 *> \ingroup auxOTHERauxiliary
 *
 *  =====================================================================
       REAL             FUNCTION SLAMCH( CMACH )
 *
-*  -- LAPACK auxiliary routine (version 3.7.0) --
+*  -- LAPACK auxiliary 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 ..
       CHARACTER          CMACH
@@ -156,7 +153,6 @@
 *> might hold one of these in a register.
 *> \endverbatim
 *> \author LAPACK is a software package provided by Univ. of Tennessee, Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..
-*> \date December 2016
 *> \ingroup auxOTHERauxiliary
 *>
 *> \param[in] A
@@ -171,9 +167,8 @@
 *
       REAL             FUNCTION SLAMC3( A, B )
 *
-*  -- LAPACK auxiliary routine (version 3.7.0) --
+*  -- LAPACK auxiliary routine --
 *     Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
-*     November 2010
 *
 *     .. Scalar Arguments ..
       REAL               A, B