dsdot - sion vectors x and y.
DOUBLE PRECISION FUNCTION DSDOT(N, X, INCX, Y, INCY) INTEGER N, INCX, INCY REAL X(*), Y(*) DOUBLE PRECISION FUNCTION DSDOT_64(N, X, INCX, Y, INCY) INTEGER*8 N, INCX, INCY REAL X(*), Y(*) F95 INTERFACE REAL(8) FUNCTION DSDOT(N, X, INCX, Y, INCY) INTEGER :: N, INCX, INCY REAL, DIMENSION(:) :: X, Y REAL(8) FUNCTION DSDOT_64(N, X, INCX, Y, INCY) INTEGER(8) :: N, INCX, INCY REAL, DIMENSION(:) :: X, Y C INTERFACE #include <sunperf.h> double dsdot(int n, float *x, int incx, float *y, int incy); double dsdot_64(long n, float *x, long incx, float *y, long incy);
Oracle Solaris Studio Performance Library dsdot(3P) NAME dsdot - compute the double precision dot product of two single preci- sion vectors x and y. SYNOPSIS DOUBLE PRECISION FUNCTION DSDOT(N, X, INCX, Y, INCY) INTEGER N, INCX, INCY REAL X(*), Y(*) DOUBLE PRECISION FUNCTION DSDOT_64(N, X, INCX, Y, INCY) INTEGER*8 N, INCX, INCY REAL X(*), Y(*) F95 INTERFACE REAL(8) FUNCTION DSDOT(N, X, INCX, Y, INCY) INTEGER :: N, INCX, INCY REAL, DIMENSION(:) :: X, Y REAL(8) FUNCTION DSDOT_64(N, X, INCX, Y, INCY) INTEGER(8) :: N, INCX, INCY REAL, DIMENSION(:) :: X, Y C INTERFACE #include <sunperf.h> double dsdot(int n, float *x, int incx, float *y, int incy); double dsdot_64(long n, float *x, long incx, float *y, long incy); PURPOSE dsdot compute the double precision dot product of x and y where x and y are single precision n-vectors. ARGUMENTS N (input) On entry, N specifies the number of elements in the vector. If N is not positive then the function returns the value 0.0. Unchanged on exit. X (input) ( 1 + ( n - 1 )*abs( INCX ) ). On entry, the incremented array X must contain the vector x. Unchanged on exit. INCX (input) On entry, INCX specifies the increment for the elements of X. INCX must not be zero. Unchanged on exit. Y (input) ( 1 + ( n - 1 )*abs( INCY ) ). On entry, the incremented array Y must contain the vector y. Unchanged on exit. INCY (input) On entry, INCY specifies the increment for the elements of Y. INCY must not be zero. Unchanged on exit. 7 Nov 2015 dsdot(3P)