35 #ifndef TEMPLATE_BLAS_SWAP_HEADER 36 #define TEMPLATE_BLAS_SWAP_HEADER 60 if (*incx == 1 && *incy == 1) {
68 ix = (-(*n) + 1) * *incx + 1;
71 iy = (-(*n) + 1) * *incy + 1;
74 for (i__ = 1; i__ <= i__1; ++i__) {
91 for (i__ = 1; i__ <= i__1; ++i__) {
103 for (i__ = mp1; i__ <= i__1; i__ += 3) {
108 dx[i__ + 1] = dy[i__ + 1];
111 dx[i__ + 2] = dy[i__ + 2];
int integer
Definition: template_blas_common.h:38
int template_blas_swap(const integer *n, Treal *dx, const integer *incx, Treal *dy, const integer *incy)
Definition: template_blas_swap.h:40