summaryrefslogtreecommitdiff
path: root/SRC/clags2.f
diff options
context:
space:
mode:
Diffstat (limited to 'SRC/clags2.f')
-rw-r--r--SRC/clags2.f24
1 files changed, 11 insertions, 13 deletions
diff --git a/SRC/clags2.f b/SRC/clags2.f
index 1d840fb8..84a1d4af 100644
--- a/SRC/clags2.f
+++ b/SRC/clags2.f
@@ -15,8 +15,8 @@
*> [TXT]</a>
*> \endhtmlonly
*
-* Definition
-* ==========
+* Definition:
+* ===========
*
* SUBROUTINE CLAGS2( UPPER, A1, A2, A3, B1, B2, B3, CSU, SNU, CSV,
* SNV, CSQ, SNQ )
@@ -27,11 +27,11 @@
* COMPLEX A2, B2, SNQ, SNU, SNV
* ..
*
-* Purpose
-* =======
*
-*>\details \b Purpose:
-*>\verbatim
+*> \par Purpose:
+* =============
+*>
+*> \verbatim
*>
*> CLAGS2 computes 2-by-2 unitary matrices U, V and Q, such
*> that if ( UPPER ) then
@@ -63,11 +63,10 @@
*> then the transformed (2,2) element of B is not zero, except when the
*> first rows of input A and B are parallel and the second rows are
*> zero.
-*>
-*>\endverbatim
+*> \endverbatim
*
-* Arguments
-* =========
+* Arguments:
+* ==========
*
*> \param[in] UPPER
*> \verbatim
@@ -142,10 +141,9 @@
*> SNQ is COMPLEX
*> The desired unitary matrix Q.
*> \endverbatim
-*>
*
-* Authors
-* =======
+* Authors:
+* ========
*
*> \author Univ. of Tennessee
*> \author Univ. of California Berkeley