 LAPACK  3.6.1 LAPACK: Linear Algebra PACKage
 subroutine zla_wwaddw ( integer N, complex*16, dimension( * ) X, complex*16, dimension( * ) Y, complex*16, dimension( * ) W )

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

Definition at line 83 of file zla_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  COMPLEX*16 x( * ), y( * ), w( * )
94 * ..
95 *
96 * =====================================================================
97 *
98 * .. Local Scalars ..
99  COMPLEX*16 s
100  INTEGER i
101 * ..
102 * .. Executable Statements ..
103  DO 10 i = 1, n
104  s = x(i) + w(i)
105  s = (s + s) - s
106  y(i) = ((x(i) - s) + w(i)) + y(i)
107  x(i) = s
108  10 CONTINUE
109  RETURN

Here is the caller graph for this function: