--- rpl/lapack/blas/lsame.f	2010/12/21 13:51:26	1.6
+++ rpl/lapack/blas/lsame.f	2011/11/21 20:37:08	1.7
@@ -1,26 +1,66 @@
-      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 ===========
 *
-*     .. Scalar Arguments ..
-      CHARACTER CA,CB
-*     ..
+* Online html documentation available at 
+*            http://www.netlib.org/lapack/explore-html/ 
 *
-*  Purpose
-*  =======
+*  Definition:
+*  ===========
+*
+*       LOGICAL FUNCTION LSAME(CA,CB)
+* 
+*       .. Scalar Arguments ..
+*       CHARACTER CA,CB
+*       ..
+*  
+*
+*> \par Purpose:
+*  =============
+*>
+*> \verbatim
+*>
+*> LSAME returns .TRUE. if CA is the same letter as CB regardless of
+*> case.
+*> \endverbatim
+*
+*  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
+*
+*  Authors:
+*  ========
+*
+*> \author Univ. of Tennessee 
+*> \author Univ. of California Berkeley 
+*> \author Univ. of Colorado Denver 
+*> \author NAG Ltd. 
 *
-*  LSAME returns .TRUE. if CA is the same letter as CB regardless of
-*  case.
+*> \date November 2011
 *
-*  Arguments
-*  =========
+*> \ingroup aux_blas
 *
-*  CA      (input) CHARACTER*1
+*  =====================================================================
+      LOGICAL FUNCTION LSAME(CA,CB)
 *
-*  CB      (input) CHARACTER*1
-*          CA and CB specify the single characters to be compared.
+*  -- Reference BLAS level1 routine (version 3.1) --
+*  -- Reference BLAS is a software package provided by Univ. of Tennessee,    --
+*  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
+*     November 2011
+*
+*     .. Scalar Arguments ..
+      CHARACTER CA,CB
+*     ..
 *
 * =====================================================================
 *