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__ +