sla_wwaddw - single vector
SUBROUTINE SLA_WWADDW( N, X, Y, W ) INTEGER N REAL X(*), Y(*), W(*) SUBROUTINE SLA_WWADDW_64( N, X, Y, W ) INTEGER*8 N REAL X(*), Y(*), W(*) F95 INTERFACE SUBROUTINE LA_WWADDW( N, X, Y, W ) INTEGER :: N REAL, DIMENSION(:) :: X, Y, W SUBROUTINE LA_WWADDW_64( N, X, Y, W ) INTEGER(8) :: N REAL, DIMENSION(:) :: X, Y, W C INTERFACE #include <sunperf.h> void sla_wwaddw (int n, float *x, float *y, float *w); void sla_wwaddw_64 (long n, float *x, float *y, float *w);
Oracle Solaris Studio Performance Library sla_wwaddw(3P) NAME sla_wwaddw - add a vector into a doubled-single vector SYNOPSIS SUBROUTINE SLA_WWADDW( N, X, Y, W ) INTEGER N REAL X(*), Y(*), W(*) SUBROUTINE SLA_WWADDW_64( N, X, Y, W ) INTEGER*8 N REAL X(*), Y(*), W(*) F95 INTERFACE SUBROUTINE LA_WWADDW( N, X, Y, W ) INTEGER :: N REAL, DIMENSION(:) :: X, Y, W SUBROUTINE LA_WWADDW_64( N, X, Y, W ) INTEGER(8) :: N REAL, DIMENSION(:) :: X, Y, W C INTERFACE #include <sunperf.h> void sla_wwaddw (int n, float *x, float *y, float *w); void sla_wwaddw_64 (long n, float *x, float *y, float *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 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 REAL array, dimension (N) The first part of the doubled-single accumulation vector. Y (input/output) Y is REAL array, dimension (N) The second part of the doubled-single accumulation vector. W (input) W is REAL array, dimension (N) The vector to be added. 7 Nov 2015 sla_wwaddw(3P)