1 files changed, 14 insertions, 17 deletions
diff --git a/SRC/clanhe.f b/SRC/clanhe.f
index c5b52d97..5154b610 100644
--- a/SRC/clanhe.f
+++ b/SRC/clanhe.f
@@ -15,8 +15,8 @@
 *> [TXT]</a>
 *> \endhtmlonly 
 *
-*  Definition
-*  ==========
+*  Definition:
+*  ===========
 *
 *       REAL             FUNCTION CLANHE( NORM, UPLO, N, A, LDA, WORK )
 * 
@@ -29,20 +29,19 @@
 *       COMPLEX            A( LDA, * )
 *       ..
 *  
-*  Purpose
-*  =======
 *
-*>\details \b Purpose:
-*>\verbatim
+*> \par Purpose:
+*  =============
+*>
+*> \verbatim
 *>
 *> CLANHE  returns the value of the one norm,  or the Frobenius norm, or
 *> the  infinity norm,  or the  element of  largest absolute value  of a
 *> complex hermitian matrix A.
+*> \endverbatim
 *>
-*> Description
-*> ===========
-*>
-*> CLANHE returns the value
+*> \return CLANHE
+*> \verbatim
 *>
 *>    CLANHE = ( max(abs(A(i,j))), NORM = 'M' or 'm'
 *>             (
@@ -56,11 +55,10 @@
 *> normI  denotes the  infinity norm  of a matrix  (maximum row sum) and
 *> normF  denotes the  Frobenius norm of a matrix (square root of sum of
 *> squares).  Note that  max(abs(A(i,j)))  is not a consistent matrix norm.
-*>
-*>\endverbatim
+*> \endverbatim
 *
-*  Arguments
-*  =========
+*  Arguments:
+*  ==========
 *
 *> \param[in] NORM
 *> \verbatim
@@ -110,10 +108,9 @@
 *>          where LWORK >= N when NORM = 'I' or '1' or 'O'; otherwise,
 *>          WORK is not referenced.
 *> \endverbatim
-*>
 *
-*  Authors
-*  =======
+*  Authors:
+*  ========
 *
 *> \author Univ. of Tennessee 
 *> \author Univ. of California Berkeley