summaryrefslogtreecommitdiff
path: root/SRC/zla_wwaddw.f
diff options
context:
space:
mode:
Diffstat (limited to 'SRC/zla_wwaddw.f')
-rw-r--r--SRC/zla_wwaddw.f26
1 files changed, 11 insertions, 15 deletions
diff --git a/SRC/zla_wwaddw.f b/SRC/zla_wwaddw.f
index f1483cc0..4b04b739 100644
--- a/SRC/zla_wwaddw.f
+++ b/SRC/zla_wwaddw.f
@@ -15,8 +15,8 @@
*> [TXT]</a>
*> \endhtmlonly
*
-* Definition
-* ==========
+* Definition:
+* ===========
*
* SUBROUTINE ZLA_WWADDW( N, X, Y, W )
*
@@ -27,23 +27,20 @@
* COMPLEX*16 X( * ), Y( * ), W( * )
* ..
*
-* Purpose
-* =======
*
-*>\details \b Purpose:
-*>\verbatim
-*> Purpose
-*> =======
+*> \par Purpose:
+* =============
+*>
+*> \verbatim
*>
*> ZLA_WWADDW adds a vector W into a doubled-single vector (X, Y).
*>
*> This works for all extant IBM's hex and binary floating point
*> arithmetics, but not for decimal.
-*>
-*>\endverbatim
+*> \endverbatim
*
-* Arguments
-* =========
+* Arguments:
+* ==========
*
*> \param[in] N
*> \verbatim
@@ -68,10 +65,9 @@
*> W is COMPLEX*16 array, dimension (N)
*> The vector to be added.
*> \endverbatim
-*>
*
-* Authors
-* =======
+* Authors:
+* ========
*
*> \author Univ. of Tennessee
*> \author Univ. of California Berkeley