SYNOPSIS

SUBROUTINE CLA_WWADDW(

N, X, Y, W )

    

IMPLICIT NONE

    

INTEGER N

    

COMPLEX X( * ), Y( * ), W( * )

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
   arithmetics, but not for decimal.

ARGUMENTS

N (input) INTEGER

The length of vectors X, Y, and W. X, Y (input/output) COMPLEX array, length N The doubled-single accumulation vector.

W (input) COMPLEX array, length N

The vector to be added.