sdsdot

NAME

sdsdot - compute a constant plus the double precision dot product of two single precision vectors x and y

SYNOPSIS

  REAL FUNCTION SDSDOT( N, SB, SX, INCX, SY, INCY)
  INTEGER N, INCX, INCY
  REAL SB
  REAL SX(*), SY(*)
 
  REAL FUNCTION SDSDOT_64( N, SB, SX, INCX, SY, INCY)
  INTEGER*8 N, INCX, INCY
  REAL SB
  REAL SX(*), SY(*)

F95 INTERFACE

  REAL FUNCTION SDSDOT( [N], SB, SX, [INCX], SY, [INCY])
  INTEGER :: N, INCX, INCY
  REAL :: SB
  REAL, DIMENSION(:) :: SX, SY
 
  REAL FUNCTION SDSDOT_64( [N], SB, SX, [INCX], SY, [INCY])
  INTEGER(8) :: N, INCX, INCY
  REAL :: SB
  REAL, DIMENSION(:) :: SX, SY

C INTERFACE

#include <sunperf.h>

float sdsdot(int n, float sb, float *sx, int incx, float *sy, int incy);

float sdsdot_64(long n, float sb, float *sx, long incx, float *sy, long incy);

PURPOSE

sdsdot Computes a constant plus 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.
* SB (input): On entry, the constant that is added to the dot product before the result is returned. Unchanged on exit.
* SX (input): ( 1 + ( n - 1 )*abs( INCX ) ). On entry, the incremented array SX must contain the vector x. Unchanged on exit.
* INCX (input): On entry, INCX specifies the increment for the elements of SX. INCX must not be zero. Unchanged on exit.
* SY (input): ( 1 + ( m - 1 )*abs( INCY ) ). On entry, the incremented array SY must contain the vector y. Unchanged on exit.
* INCY (input): On entry, INCY specifies the increment for the elements of SY. INCY must not be zero. Unchanged on exit.