Contents
dqdota - compute a double precision constant plus an
extended precision constant plus the extended precision dot
product of two double precision vectors x and y.
DOUBLE PRECISION FUNCTION DQDOTA(N, DB, QC, DX, INCX, DY, INCY)
INTEGER N, INCX, INCY
REAL * 16 QC
DOUBLE PRECISION DB
DOUBLE PRECISION DX(*), DY(*)
DOUBLE PRECISION FUNCTION DQDOTA_64(N, DB, QC, DX, INCX, DY, INCY)
INTEGER*8 N, INCX, INCY
REAL * 16 QC
DOUBLE PRECISION DB
DOUBLE PRECISION DX(*), DY(*)
F95 INTERFACE
REAL(8) FUNCTION DQDOTA(N, DB, QC, DX, INCX, DY, INCY)
INTEGER :: N, INCX, INCY
REAL(16) :: QC
REAL(8) :: DB
REAL(8), DIMENSION(:) :: DX, DY
REAL(8) FUNCTION DQDOTA_64(N, DB, QC, DX, INCX, DY, INCY)
INTEGER(8) :: N, INCX, INCY
REAL(16) :: QC
REAL(8) :: DB
REAL(8), DIMENSION(:) :: DX, DY
C INTERFACE
#include <sunperf.h>
double dqdota(int n, double db, long double *qc, double *dx,
int incx, double *dy, int incy);
double dqdota_64(long n, double db, long double *qc, double
*dx, long incx, double *dy, long incy);
dqdota compute a double precision constant plus an extended
precision constant plus the extended precision dot product
of two double precision vectors x and y.
N (input)
On entry, N specifies the number of elements in
the vector. If N <= 0 then the function returns
the value DB+QC. Unchanged on exit.
DB (input)
On entry, the constant that is added to the dot
product before the result is returned. Unchanged
on exit.
QC (input/output)
On entry, the extended precision constant to be
added to the dot product. On exit, the extended
precision result.
DX (input)
On entry, the incremented array DX must contain
the vector x. Unchanged on exit.
INCX (input)
On entry, INCX specifies the increment for the
elements of DX. Unchanged on exit.
DY (input)
On entry, the incremented array DY must contain
the vector y. Unchanged on exit.
INCY (input)
On entry, INCY specifies the increment for the
elements of DY. Unchanged on exit.
Note:
dqdota does not exist in X86 libraries.