35 #ifndef TEMPLATE_BLAS_COPY_HEADER
36 #define TEMPLATE_BLAS_COPY_HEADER
58 if (*incx == 1 && *incy == 1) {
66 ix = (-(*n) + 1) * *incx + 1;
69 iy = (-(*n) + 1) * *incy + 1;
72 for (i__ = 1; i__ <= i__1; ++i__) {
87 for (i__ = 1; i__ <= i__1; ++i__) {
97 for (i__ = mp1; i__ <= i__1; i__ += 7) {
99 dy[i__ + 1] = dx[i__ + 1];
100 dy[i__ + 2] = dx[i__ + 2];
101 dy[i__ + 3] = dx[i__ + 3];
102 dy[i__ + 4] = dx[i__ + 4];
103 dy[i__ + 5] = dx[i__ + 5];
104 dy[i__ + 6] = dx[i__ + 6];