summaryrefslogtreecommitdiff
path: root/SRC/stgsja.f
diff options
context:
space:
mode:
authorjulie <julielangou@users.noreply.github.com>2011-11-03 20:32:56 +0000
committerjulie <julielangou@users.noreply.github.com>2011-11-03 20:32:56 +0000
commit1c3ba600671a59785b0c647d400226b4cc19a11f (patch)
tree2af647fcff119db522016721e10b5ee7768d22bb /SRC/stgsja.f
parentd5c30c90bdecf38da1064e2ed52583634573e741 (diff)
downloadlapack-1c3ba600671a59785b0c647d400226b4cc19a11f.tar.gz
lapack-1c3ba600671a59785b0c647d400226b4cc19a11f.tar.bz2
lapack-1c3ba600671a59785b0c647d400226b4cc19a11f.zip
Cosmetic changes in Doxygen presentation.
Use \par instead of \details for section. add a Contributors Section and a Reference Section. Remove (some) verbatim section when not needed. Those changes have been done by hand so I am not sure I manage to catch them all.
Diffstat (limited to 'SRC/stgsja.f')
-rw-r--r--SRC/stgsja.f32
1 files changed, 14 insertions, 18 deletions
diff --git a/SRC/stgsja.f b/SRC/stgsja.f
index a53e4a82..2a154e91 100644
--- a/SRC/stgsja.f
+++ b/SRC/stgsja.f
@@ -15,8 +15,8 @@
*> [TXT]</a>
*> \endhtmlonly
*
-* Definition
-* ==========
+* Definition:
+* ===========
*
* SUBROUTINE STGSJA( JOBU, JOBV, JOBQ, M, P, N, K, L, A, LDA, B,
* LDB, TOLA, TOLB, ALPHA, BETA, U, LDU, V, LDV,
@@ -34,11 +34,11 @@
* $ V( LDV, * ), WORK( * )
* ..
*
-* Purpose
-* =======
*
-*>\details \b Purpose:
-*>\verbatim
+*> \par Purpose:
+* =============
+*>
+*> \verbatim
*>
*> STGSJA computes the generalized singular value decomposition (GSVD)
*> of two real upper triangular (or trapezoidal) matrices A and B.
@@ -123,11 +123,10 @@
*> The computation of the orthogonal transformation matrices U, V or Q
*> is optional. These matrices may either be formed explicitly, or they
*> may be postmultiplied into input matrices U1, V1, or Q1.
-*>
-*>\endverbatim
+*> \endverbatim
*
-* Arguments
-* =========
+* Arguments:
+* ==========
*
*> \param[in] JOBU
*> \verbatim
@@ -342,10 +341,9 @@
*> may take. If after MAXIT cycles, the routine fails to
*> converge, we return INFO = 1.
*> \endverbatim
-*>
*
-* Authors
-* =======
+* Authors:
+* ========
*
*> \author Univ. of Tennessee
*> \author Univ. of California Berkeley
@@ -356,10 +354,9 @@
*
*> \ingroup realOTHERcomputational
*
-*
-* Further Details
-* ===============
-*>\details \b Further \b Details
+*> \par Further Details:
+* =====================
+*>
*> \verbatim
*>
*> STGSJA essentially uses a variant of Kogbetliantz algorithm to reduce
@@ -374,7 +371,6 @@
*> C1**2 + S1**2 = I,
*>
*> and R1 is an L-by-L nonsingular upper triangular matrix.
-*>
*> \endverbatim
*>
* =====================================================================