summaryrefslogtreecommitdiff
path: root/SRC/cggsvd.f
diff options
context:
space:
mode:
Diffstat (limited to 'SRC/cggsvd.f')
-rw-r--r--SRC/cggsvd.f42
1 files changed, 18 insertions, 24 deletions
diff --git a/SRC/cggsvd.f b/SRC/cggsvd.f
index 2280d3fc..962fa05b 100644
--- a/SRC/cggsvd.f
+++ b/SRC/cggsvd.f
@@ -15,8 +15,8 @@
*> [TXT]</a>
*> \endhtmlonly
*
-* Definition
-* ==========
+* Definition:
+* ===========
*
* SUBROUTINE CGGSVD( JOBU, JOBV, JOBQ, M, N, P, K, L, A, LDA, B,
* LDB, ALPHA, BETA, U, LDU, V, LDV, Q, LDQ, WORK,
@@ -33,11 +33,11 @@
* $ U( LDU, * ), V( LDV, * ), WORK( * )
* ..
*
-* Purpose
-* =======
*
-*>\details \b Purpose:
-*>\verbatim
+*> \par Purpose:
+* =============
+*>
+*> \verbatim
*>
*> CGGSVD computes the generalized singular value decomposition (GSVD)
*> of an M-by-N complex matrix A and P-by-N complex matrix B:
@@ -117,11 +117,10 @@
*>
*> X = Q*( I 0 )
*> ( 0 inv(R) )
-*>
-*>\endverbatim
+*> \endverbatim
*
-* Arguments
-* =========
+* Arguments:
+* ==========
*
*> \param[in] JOBU
*> \verbatim
@@ -298,10 +297,12 @@
*> < 0: if INFO = -i, the i-th argument had an illegal value.
*> > 0: if INFO = 1, the Jacobi-type procedure failed to
*> converge. For further details, see subroutine CTGSJA.
+*> \endverbatim
+*
+*> \par Internal Parameters:
+* =========================
*>
-*> Internal Parameters
-*> ===================
-*>
+*> \verbatim
*> TOLA REAL
*> TOLB REAL
*> TOLA and TOLB are the thresholds to determine the effective
@@ -311,10 +312,9 @@
*> The size of TOLA and TOLB may affect the size of backward
*> errors of the decomposition.
*> \endverbatim
-*>
*
-* Authors
-* =======
+* Authors:
+* ========
*
*> \author Univ. of Tennessee
*> \author Univ. of California Berkeley
@@ -325,18 +325,12 @@
*
*> \ingroup complexOTHERsing
*
-*
-* Further Details
-* ===============
-*>\details \b Further \b Details
-*> \verbatim
+*> \par Contributors:
+* ==================
*>
-*> 2-96 Based on modifications by
*> Ming Gu and Huan Ren, Computer Science Division, University of
*> California at Berkeley, USA
*>
-*> \endverbatim
-*>
* =====================================================================
SUBROUTINE CGGSVD( JOBU, JOBV, JOBQ, M, N, P, K, L, A, LDA, B,
$ LDB, ALPHA, BETA, U, LDU, V, LDV, Q, LDQ, WORK,