--- rpl/lapack/blas/lsame.f	2010/01/26 15:22:45	1.1.1.1
+++ rpl/lapack/blas/lsame.f	2023/08/07 08:38:44	1.14
@@ -1,26 +1,63 @@
-      LOGICAL FUNCTION LSAME(CA,CB)
+*> \brief \b LSAME
 *
-*  -- LAPACK auxiliary routine (version 3.1) --
-*     Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
-*     November 2006
+*  =========== DOCUMENTATION ===========
+*
+* Online html documentation available at
+*            http://www.netlib.org/lapack/explore-html/
+*
+*  Definition:
+*  ===========
+*
+*       LOGICAL FUNCTION LSAME(CA,CB)
+*
+*       .. Scalar Arguments ..
+*       CHARACTER CA,CB
+*       ..
 *
-*     .. Scalar Arguments ..
-      CHARACTER CA,CB
-*     ..
 *
-*  Purpose
-*  =======
+*> \par Purpose:
+*  =============
+*>
+*> \verbatim
+*>
+*> LSAME returns .TRUE. if CA is the same letter as CB regardless of
+*> case.
+*> \endverbatim
 *
-*  LSAME returns .TRUE. if CA is the same letter as CB regardless of
-*  case.
+*  Arguments:
+*  ==========
 *
-*  Arguments
-*  =========
+*> \param[in] CA
+*> \verbatim
+*>          CA is CHARACTER*1
+*> \endverbatim
+*>
+*> \param[in] CB
+*> \verbatim
+*>          CB is CHARACTER*1
+*>          CA and CB specify the single characters to be compared.
+*> \endverbatim
 *
-*  CA      (input) CHARACTER*1
+*  Authors:
+*  ========
 *
-*  CB      (input) CHARACTER*1
-*          CA and CB specify the single characters to be compared.
+*> \author Univ. of Tennessee
+*> \author Univ. of California Berkeley
+*> \author Univ. of Colorado Denver
+*> \author NAG Ltd.
+*
+*> \ingroup aux_blas
+*
+*  =====================================================================
+      LOGICAL FUNCTION LSAME(CA,CB)
+*
+*  -- Reference BLAS level1 routine --
+*  -- Reference BLAS is a software package provided by Univ. of Tennessee,    --
+*  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
+*
+*     .. Scalar Arguments ..
+      CHARACTER CA,CB
+*     ..
 *
 * =====================================================================
 *