summaryrefslogtreecommitdiff
path: root/SRC/slarz.f
diff options
context:
space:
mode:
Diffstat (limited to 'SRC/slarz.f')
-rw-r--r--SRC/slarz.f36
1 files changed, 17 insertions, 19 deletions
diff --git a/SRC/slarz.f b/SRC/slarz.f
index 256fa23c..29b51e7d 100644
--- a/SRC/slarz.f
+++ b/SRC/slarz.f
@@ -15,8 +15,8 @@
*> [TXT]</a>
*> \endhtmlonly
*
-* Definition
-* ==========
+* Definition:
+* ===========
*
* SUBROUTINE SLARZ( SIDE, M, N, L, V, INCV, TAU, C, LDC, WORK )
*
@@ -29,11 +29,11 @@
* REAL C( LDC, * ), V( * ), WORK( * )
* ..
*
-* Purpose
-* =======
*
-*>\details \b Purpose:
-*>\verbatim
+*> \par Purpose:
+* =============
+*>
+*> \verbatim
*>
*> SLARZ applies a real elementary reflector H to a real M-by-N
*> matrix C, from either the left or the right. H is represented in the
@@ -47,11 +47,10 @@
*>
*>
*> H is a product of k elementary reflectors as returned by STZRZF.
-*>
-*>\endverbatim
+*> \endverbatim
*
-* Arguments
-* =========
+* Arguments:
+* ==========
*
*> \param[in] SIDE
*> \verbatim
@@ -119,10 +118,9 @@
*> (N) if SIDE = 'L'
*> or (M) if SIDE = 'R'
*> \endverbatim
-*>
*
-* Authors
-* =======
+* Authors:
+* ========
*
*> \author Univ. of Tennessee
*> \author Univ. of California Berkeley
@@ -133,15 +131,15 @@
*
*> \ingroup realOTHERcomputational
*
-*
-* Further Details
-* ===============
-*>\details \b Further \b Details
-*> \verbatim
+*> \par Contributors:
+* ==================
*>
-*> Based on contributions by
*> A. Petitet, Computer Science Dept., Univ. of Tenn., Knoxville, USA
+*
+*> \par Further Details:
+* =====================
*>
+*> \verbatim
*> \endverbatim
*>
* =====================================================================