NAME¶

SLA_WWADDW - SLA_WWADDW add a vector W into a doubled-single vector (X, Y)

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.