1 files changed, 14 insertions, 18 deletions
diff --git a/SRC/dhsein.f b/SRC/dhsein.f
index b59fd91f..0b83712f 100644
--- a/SRC/dhsein.f
+++ b/SRC/dhsein.f
@@ -15,8 +15,8 @@
 *> [TXT]</a>
 *> \endhtmlonly 
 *
-*  Definition
-*  ==========
+*  Definition:
+*  ===========
 *
 *       SUBROUTINE DHSEIN( SIDE, EIGSRC, INITV, SELECT, N, H, LDH, WR, WI,
 *                          VL, LDVL, VR, LDVR, MM, M, WORK, IFAILL,
@@ -33,11 +33,11 @@
 *      $                   WI( * ), WORK( * ), WR( * )
 *       ..
 *  
-*  Purpose
-*  =======
 *
-*>\details \b Purpose:
-*>\verbatim
+*> \par Purpose:
+*  =============
+*>
+*> \verbatim
 *>
 *> DHSEIN uses inverse iteration to find specified right and/or left
 *> eigenvectors of a real upper Hessenberg matrix H.
@@ -48,11 +48,10 @@
 *>              H * x = w * x,     y**h * H = w * y**h
 *>
 *> where y**h denotes the conjugate transpose of the vector y.
-*>
-*>\endverbatim
+*> \endverbatim
 *
-*  Arguments
-*  =========
+*  Arguments:
+*  ==========
 *
 *> \param[in] SIDE
 *> \verbatim
@@ -235,10 +234,9 @@
 *>                failed to converge; see IFAILL and IFAILR for further
 *>                details.
 *> \endverbatim
-*>
 *
-*  Authors
-*  =======
+*  Authors:
+*  ========
 *
 *> \author Univ. of Tennessee 
 *> \author Univ. of California Berkeley 
@@ -249,16 +247,14 @@
 *
 *> \ingroup doubleOTHERcomputational
 *
-*
-*  Further Details
-*  ===============
-*>\details \b Further \b Details
+*> \par Further Details:
+*  =====================
+*>
 *> \verbatim
 *>
 *>  Each eigenvector is normalized so that the element of largest
 *>  magnitude has magnitude 1; here the magnitude of a complex number
 *>  (x,y) is taken to be |x|+|y|.
-*>
 *> \endverbatim
 *>
 *  =====================================================================