summaryrefslogtreecommitdiff
path: root/SRC/dlaqsy.f
diff options
context:
space:
mode:
Diffstat (limited to 'SRC/dlaqsy.f')
-rw-r--r--SRC/dlaqsy.f32
1 files changed, 16 insertions, 16 deletions
diff --git a/SRC/dlaqsy.f b/SRC/dlaqsy.f
index 0b141c2e..2060143f 100644
--- a/SRC/dlaqsy.f
+++ b/SRC/dlaqsy.f
@@ -15,8 +15,8 @@
*> [TXT]</a>
*> \endhtmlonly
*
-* Definition
-* ==========
+* Definition:
+* ===========
*
* SUBROUTINE DLAQSY( UPLO, N, A, LDA, S, SCOND, AMAX, EQUED )
*
@@ -29,19 +29,18 @@
* DOUBLE PRECISION A( LDA, * ), S( * )
* ..
*
-* Purpose
-* =======
*
-*>\details \b Purpose:
-*>\verbatim
+*> \par Purpose:
+* =============
+*>
+*> \verbatim
*>
*> DLAQSY equilibrates a symmetric matrix A using the scaling factors
*> in the vector S.
-*>
-*>\endverbatim
+*> \endverbatim
*
-* Arguments
-* =========
+* Arguments:
+* ==========
*
*> \param[in] UPLO
*> \verbatim
@@ -104,10 +103,12 @@
*> = 'N': No equilibration.
*> = 'Y': Equilibration was done, i.e., A has been replaced by
*> diag(S) * A * diag(S).
+*> \endverbatim
+*
+*> \par Internal Parameters:
+* =========================
*>
-*> Internal Parameters
-*> ===================
-*>
+*> \verbatim
*> THRESH is a threshold value used to decide if scaling should be done
*> based on the ratio of the scaling factors. If SCOND < THRESH,
*> scaling is done.
@@ -116,10 +117,9 @@
*> be done based on the absolute size of the largest matrix element.
*> If AMAX > LARGE or AMAX < SMALL, scaling is done.
*> \endverbatim
-*>
*
-* Authors
-* =======
+* Authors:
+* ========
*
*> \author Univ. of Tennessee
*> \author Univ. of California Berkeley