35 #ifndef TEMPLATE_BLAS_DOT_HEADER
36 #define TEMPLATE_BLAS_DOT_HEADER
64 if (*incx == 1 && *incy == 1) {
72 ix = (-(*n) + 1) * *incx + 1;
75 iy = (-(*n) + 1) * *incy + 1;
78 for (i__ = 1; i__ <= i__1; ++i__) {
79 dtemp += dx[ix] * dy[iy];
94 for (i__ = 1; i__ <= i__1; ++i__) {
95 dtemp += dx[i__] * dy[i__];
104 for (i__ = mp1; i__ <= i__1; i__ += 5) {
105 dtemp = dtemp + dx[i__] * dy[i__] + dx[i__ + 1] * dy[i__ + 1] + dx[
106 i__ + 2] * dy[i__ + 2] + dx[i__ + 3] * dy[i__ + 3] + dx[i__ +