 LAPACK  3.6.1 LAPACK: Linear Algebra PACKage
 subroutine sla_wwaddw ( integer N, real, dimension( * ) X, real, dimension( * ) Y, real, dimension( * ) W )

Purpose:
```    SLA_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.```
Parameters
 [in] N ``` N is INTEGER The length of vectors X, Y, and W.``` [in,out] X ``` X is REAL array, dimension (N) The first part of the doubled-single accumulation vector.``` [in,out] Y ``` Y is REAL array, dimension (N) The second part of the doubled-single accumulation vector.``` [in] W ``` W is REAL array, dimension (N) The vector to be added.```
Date
September 2012

Definition at line 83 of file sla_wwaddw.f.

83 *
84 * -- LAPACK computational routine (version 3.4.2) --
85 * -- LAPACK is a software package provided by Univ. of Tennessee, --
86 * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
87 * September 2012
88 *
89 * .. Scalar Arguments ..
90  INTEGER n
91 * ..
92 * .. Array Arguments ..
93  REAL x( * ), y( * ), w( * )
94 * ..
95 *
96 * =====================================================================
97 *
98 * .. Local Scalars ..
99  REAL s
100  INTEGER i
101 * ..
102 * .. Executable Statements ..
103 *
104  DO 10 i = 1, n
105  s = x(i) + w(i)
106  s = (s + s) - s
107  y(i) = ((x(i) - s) + w(i)) + y(i)
108  x(i) = s
109  10 CONTINUE
110  RETURN

Here is the caller graph for this function: