summaryrefslogtreecommitdiff
path: root/SRC/clals0.f
diff options
context:
space:
mode:
Diffstat (limited to 'SRC/clals0.f')
-rw-r--r--SRC/clals0.f40
1 files changed, 16 insertions, 24 deletions
diff --git a/SRC/clals0.f b/SRC/clals0.f
index 3bc79e3f..ca6ce179 100644
--- a/SRC/clals0.f
+++ b/SRC/clals0.f
@@ -15,8 +15,8 @@
*> [TXT]</a>
*> \endhtmlonly
*
-* Definition
-* ==========
+* Definition:
+* ===========
*
* SUBROUTINE CLALS0( ICOMPQ, NL, NR, SQRE, NRHS, B, LDB, BX, LDBX,
* PERM, GIVPTR, GIVCOL, LDGCOL, GIVNUM, LDGNUM,
@@ -35,11 +35,11 @@
* COMPLEX B( LDB, * ), BX( LDBX, * )
* ..
*
-* Purpose
-* =======
*
-*>\details \b Purpose:
-*>\verbatim
+*> \par Purpose:
+* =============
+*>
+*> \verbatim
*>
*> CLALS0 applies back the multiplying factors of either the left or the
*> right singular vector matrix of a diagonal matrix appended by a row
@@ -70,11 +70,10 @@
*> (3R) The inverse transformation of (2L).
*>
*> (4R) The inverse transformation of (1L).
-*>
-*>\endverbatim
+*> \endverbatim
*
-* Arguments
-* =========
+* Arguments:
+* ==========
*
*> \param[in] ICOMPQ
*> \verbatim
@@ -246,10 +245,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
@@ -260,19 +258,13 @@
*
*> \ingroup complexOTHERcomputational
*
-*
-* Further Details
-* ===============
-*>\details \b Further \b Details
-*> \verbatim
+*> \par Contributors:
+* ==================
*>
-*> Based on contributions by
*> Ming Gu and Ren-Cang Li, Computer Science Division, University of
-*> California at Berkeley, USA
-*> Osni Marques, LBNL/NERSC, USA
-*>
-*> \endverbatim
-*>
+*> California at Berkeley, USA \n
+*> Osni Marques, LBNL/NERSC, USA \n
+*
* =====================================================================
SUBROUTINE CLALS0( ICOMPQ, NL, NR, SQRE, NRHS, B, LDB, BX, LDBX,
$ PERM, GIVPTR, GIVCOL, LDGCOL, GIVNUM, LDGNUM,