37 #ifndef TEMPLATE_BLAS_DOT_HEADER 38 #define TEMPLATE_BLAS_DOT_HEADER 66 if (*incx == 1 && *incy == 1) {
74 ix = (-(*n) + 1) * *incx + 1;
77 iy = (-(*n) + 1) * *incy + 1;
80 for (i__ = 1; i__ <= i__1; ++i__) {
81 dtemp += dx[ix] * dy[iy];
96 for (i__ = 1; i__ <= i__1; ++i__) {
97 dtemp += dx[i__] * dy[i__];
106 for (i__ = mp1; i__ <= i__1; i__ += 5) {
107 dtemp = dtemp + dx[i__] * dy[i__] + dx[i__ + 1] * dy[i__ + 1] + dx[
108 i__ + 2] * dy[i__ + 2] + dx[i__ + 3] * dy[i__ + 3] + dx[i__ +
int integer
Definition: template_blas_common.h:40
Treal template_blas_dot(const integer *n, const Treal *dx, const integer *incx, const Treal *dy, const integer *incy)
Definition: template_blas_dot.h:43