1 files changed, 22 insertions, 21 deletions
diff --git a/SRC/ztgsna.f b/SRC/ztgsna.f
index fa9cb872..21394be5 100644
--- a/SRC/ztgsna.f
+++ b/SRC/ztgsna.f
@@ -15,8 +15,8 @@
 *> [TXT]</a>
 *> \endhtmlonly 
 *
-*  Definition
-*  ==========
+*  Definition:
+*  ===========
 *
 *       SUBROUTINE ZTGSNA( JOB, HOWMNY, SELECT, N, A, LDA, B, LDB, VL,
 *                          LDVL, VR, LDVR, S, DIF, MM, M, WORK, LWORK,
@@ -34,22 +34,21 @@
 *      $                   VR( LDVR, * ), WORK( * )
 *       ..
 *  
-*  Purpose
-*  =======
 *
-*>\details \b Purpose:
-*>\verbatim
+*> \par Purpose:
+*  =============
+*>
+*> \verbatim
 *>
 *> ZTGSNA estimates reciprocal condition numbers for specified
 *> eigenvalues and/or eigenvectors of a matrix pair (A, B).
 *>
 *> (A, B) must be in generalized Schur canonical form, that is, A and
 *> B are both upper triangular.
-*>
-*>\endverbatim
+*> \endverbatim
 *
-*  Arguments
-*  =========
+*  Arguments:
+*  ==========
 *
 *> \param[in] JOB
 *> \verbatim
@@ -205,10 +204,9 @@
 *>          = 0: Successful exit
 *>          < 0: If INFO = -i, the i-th argument had an illegal value
 *> \endverbatim
-*>
 *
-*  Authors
-*  =======
+*  Authors:
+*  ========
 *
 *> \author Univ. of Tennessee 
 *> \author Univ. of California Berkeley 
@@ -219,10 +217,9 @@
 *
 *> \ingroup complex16OTHERcomputational
 *
-*
-*  Further Details
-*  ===============
-*>\details \b Further \b Details
+*> \par Further Details:
+*  =====================
+*>
 *> \verbatim
 *>
 *>  The reciprocal of the condition number of the i-th generalized
@@ -275,13 +272,18 @@
 *>                      EPS * norm(A, B) / DIF(i).
 *>
 *>  See ref. [2-3] for more details and further references.
+*> \endverbatim
+*
+*> \par Contributors:
+*  ==================
 *>
-*>  Based on contributions by
 *>     Bo Kagstrom and Peter Poromaa, Department of Computing Science,
 *>     Umea University, S-901 87 Umea, Sweden.
+*
+*> \par References:
+*  ================
 *>
-*>  References
-*>  ==========
+*> \verbatim
 *>
 *>  [1] B. Kagstrom; A Direct Method for Reordering Eigenvalues in the
 *>      Generalized Real Schur Form of a Regular Matrix Pair (A, B), in
@@ -302,7 +304,6 @@
 *>      Sweden, December 1993, Revised April 1994, Also as LAPACK Working
 *>      Note 75.
 *>      To appear in ACM Trans. on Math. Software, Vol 22, No 1, 1996.
-*>
 *> \endverbatim
 *>
 *  =====================================================================