SYNOPSIS

SUBROUTINE SLA_WWADDW(

N, X, Y, W )

    

IMPLICIT NONE

    

INTEGER N

    

REAL X( * ), Y( * ), 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.

ARGUMENTS

N (input) INTEGER

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

W (input) REAL array, length N

The vector to be added.