cla_wwaddw()

subroutine cla_wwaddw	(	integer	n,
		complex, dimension( * )	x,
		complex, dimension( * )	y,
		complex, dimension( * )	w )

CLA_WWADDW adds a vector into a doubled-single vector.

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

Purpose:

!>
!>    CLA_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 array, dimension (N) !> The first part of the doubled-single accumulation vector. !>
[in,out]	Y	!> Y is COMPLEX array, dimension (N) !> The second part of the doubled-single accumulation vector. !>
[in]	W	!> W is COMPLEX array, dimension (N) !> The vector to be added. !>

Author

Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.