LAPACK  3.10.0
LAPACK: Linear Algebra PACKage

◆ zla_wwaddw()

subroutine zla_wwaddw ( integer  N,
complex*16, dimension( * )  X,
complex*16, dimension( * )  Y,
complex*16, dimension( * )  W 
)

ZLA_WWADDW adds a vector into a doubled-single vector.

Download ZLA_WWADDW + dependencies [TGZ] [ZIP] [TXT]

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
    arithmetic, 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.
Author
Univ. of Tennessee
Univ. of California Berkeley
Univ. of Colorado Denver
NAG Ltd.

Definition at line 80 of file zla_wwaddw.f.

81 *
82 * -- LAPACK computational routine --
83 * -- LAPACK is a software package provided by Univ. of Tennessee, --
84 * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
85 *
86 * .. Scalar Arguments ..
87  INTEGER N
88 * ..
89 * .. Array Arguments ..
90  COMPLEX*16 X( * ), Y( * ), W( * )
91 * ..
92 *
93 * =====================================================================
94 *
95 * .. Local Scalars ..
96  COMPLEX*16 S
97  INTEGER I
98 * ..
99 * .. Executable Statements ..
100  DO 10 i = 1, n
101  s = x(i) + w(i)
102  s = (s + s) - s
103  y(i) = ((x(i) - s) + w(i)) + y(i)
104  x(i) = s
105  10 CONTINUE
106  RETURN
107 *
108 * End of ZLA_WWADDW
109 *
Here is the caller graph for this function: