blas/double.cpp File Reference

#include "level1_impl.h"
#include "level1_real_impl.h"
#include "level2_impl.h"
#include "level2_real_impl.h"
#include "level3_impl.h"

Macros
#define	SCALAR   double
#define	SCALAR_SUFFIX   d
#define	SCALAR_SUFFIX_UP   "D"
#define	ISCOMPLEX   0

Functions
double EIGEN_BLAS_FUNC_NAME()	sdot (int *n, float *x, int *incx, float *y, int *incy)

Macro Definition Documentation

ISCOMPLEX

#define ISCOMPLEX   0

SCALAR

#define SCALAR   double

SCALAR_SUFFIX

#define SCALAR_SUFFIX   d

SCALAR_SUFFIX_UP

#define SCALAR_SUFFIX_UP   "D"

Function Documentation

sdot()

double EIGEN_BLAS_FUNC_NAME() sdot	(	int *	n,
		float *	x,
		int *	incx,
		float *	y,
		int *	incy
	)

                                                                                               {
  if (*n <= 0) return 0;
 
  if (*incx == 1 && *incy == 1)
    return (make_vector(x, *n).cast<double>().cwiseProduct(make_vector(y, *n).cast<double>())).sum();
  else if (*incx > 0 && *incy > 0)
    return (make_vector(x, *n, *incx).cast<double>().cwiseProduct(make_vector(y, *n, *incy).cast<double>())).sum();
  else if (*incx < 0 && *incy > 0)
    return (make_vector(x, *n, -*incx).reverse().cast<double>().cwiseProduct(make_vector(y, *n, *incy).cast<double>()))
        .sum();
  else if (*incx > 0 && *incy < 0)
    return (make_vector(x, *n, *incx).cast<double>().cwiseProduct(make_vector(y, *n, -*incy).reverse().cast<double>()))
        .sum();
  else if (*incx < 0 && *incy < 0)
    return (make_vector(x, *n, -*incx)
                .reverse()
                .cast<double>()
                .cwiseProduct(make_vector(y, *n, -*incy).reverse().cast<double>()))
        .sum();
  else
    return 0;
}

References incx, incy, make_vector(), n, plotDoE::x, and y.