summaryrefslogtreecommitdiff
path: root/SRC/slarfx.f
diff options
context:
space:
mode:
Diffstat (limited to 'SRC/slarfx.f')
-rw-r--r--SRC/slarfx.f24
1 files changed, 11 insertions, 13 deletions
diff --git a/SRC/slarfx.f b/SRC/slarfx.f
index d39d7470..53671a38 100644
--- a/SRC/slarfx.f
+++ b/SRC/slarfx.f
@@ -15,8 +15,8 @@
*> [TXT]</a>
*> \endhtmlonly
*
-* Definition
-* ==========
+* Definition:
+* ===========
*
* SUBROUTINE SLARFX( SIDE, M, N, V, TAU, C, LDC, WORK )
*
@@ -29,11 +29,11 @@
* REAL C( LDC, * ), V( * ), WORK( * )
* ..
*
-* Purpose
-* =======
*
-*>\details \b Purpose:
-*>\verbatim
+*> \par Purpose:
+* =============
+*>
+*> \verbatim
*>
*> SLARFX 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
@@ -46,11 +46,10 @@
*> If tau = 0, then H is taken to be the unit matrix
*>
*> This version uses inline code if H has order < 11.
-*>
-*>\endverbatim
+*> \endverbatim
*
-* Arguments
-* =========
+* Arguments:
+* ==========
*
*> \param[in] SIDE
*> \verbatim
@@ -105,10 +104,9 @@
*> or (M) if SIDE = 'R'
*> WORK is not referenced if H has order < 11.
*> \endverbatim
-*>
*
-* Authors
-* =======
+* Authors:
+* ========
*
*> \author Univ. of Tennessee
*> \author Univ. of California Berkeley