zla_wwaddw - single vector
SUBROUTINE ZLA_WWADDW( N, X, Y, W ) INTEGER N DOUBLE COMPLEX X(*), Y(*), W(*) SUBROUTINE ZLA_WWADDW_64( N, X, Y, W ) INTEGER*8 N DOUBLE COMPLEX X(*), Y(*), W(*) F95 INTERFACE SUBROUTINE LA_WWADDW( N, X, Y, W ) INTEGER :: N COMPLEX(8), DIMENSION(:) :: X, Y, W SUBROUTINE LA_WWADDW_64( N, X, Y, W ) INTEGER(8) :: N COMPLEX(8), DIMENSION(:) :: X, Y, W C INTERFACE #include <sunperf.h> void zla_wwaddw (int n, doublecomplex *x, doublecomplex *y, doublecom- plex *w); void zla_wwaddw_64 (long n, doublecomplex *x, doublecomplex *y, double- complex *w);
Oracle Solaris Studio Performance Library zla_wwaddw(3P)
NAME
zla_wwaddw - add a vector into a doubled-single vector
SYNOPSIS
SUBROUTINE ZLA_WWADDW( N, X, Y, W )
INTEGER N
DOUBLE COMPLEX X(*), Y(*), W(*)
SUBROUTINE ZLA_WWADDW_64( N, X, Y, W )
INTEGER*8 N
DOUBLE COMPLEX X(*), Y(*), W(*)
F95 INTERFACE
SUBROUTINE LA_WWADDW( N, X, Y, W )
INTEGER :: N
COMPLEX(8), DIMENSION(:) :: X, Y, W
SUBROUTINE LA_WWADDW_64( N, X, Y, W )
INTEGER(8) :: N
COMPLEX(8), DIMENSION(:) :: X, Y, W
C INTERFACE
#include <sunperf.h>
void zla_wwaddw (int n, doublecomplex *x, doublecomplex *y, doublecom-
plex *w);
void zla_wwaddw_64 (long n, doublecomplex *x, doublecomplex *y, double-
complex *w);
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 arith-
metics, but not for decimal.
ARGUMENTS
N (input)
N is INTEGER
The length of vectors X, Y, and W.
X (input/output)
X is COMPLEX*16 array, dimension (N)
The first part of the doubled-single accumulation vector.
Y (input/output)
Y is COMPLEX*16 array, dimension (N)
The second part of the doubled-single accumulation vector.
W (input)
W is COMPLEX*16 array, dimension (N)
The vector to be added.
7 Nov 2015 zla_wwaddw(3P)