37 #ifndef TEMPLATE_BLAS_SWAP_HEADER
38 #define TEMPLATE_BLAS_SWAP_HEADER
62 if (*incx == 1 && *incy == 1) {
70 ix = (-(*n) + 1) * *incx + 1;
73 iy = (-(*n) + 1) * *incy + 1;
76 for (i__ = 1; i__ <= i__1; ++i__) {
93 for (i__ = 1; i__ <= i__1; ++i__) {
105 for (i__ = mp1; i__ <= i__1; i__ += 3) {
110 dx[i__ + 1] = dy[i__ + 1];
113 dx[i__ + 2] = dy[i__ + 2];