37 #ifndef TEMPLATE_BLAS_ROT_HEADER 38 #define TEMPLATE_BLAS_ROT_HEADER 43 Treal *dy,
const integer *incy,
const Treal *c__,
const Treal *s)
61 if (*incx == 1 && *incy == 1) {
69 ix = (-(*n) + 1) * *incx + 1;
72 iy = (-(*n) + 1) * *incy + 1;
75 for (i__ = 1; i__ <= i__1; ++i__) {
76 dtemp = *c__ * dx[ix] + *s * dy[iy];
77 dy[iy] = *c__ * dy[iy] - *s * dx[ix];
87 for (i__ = 1; i__ <= i__1; ++i__) {
88 dtemp = *c__ * dx[i__] + *s * dy[i__];
89 dy[i__] = *c__ * dy[i__] - *s * dx[i__];
int integer
Definition: template_blas_common.h:40
int template_blas_rot(const integer *n, Treal *dx, const integer *incx, Treal *dy, const integer *incy, const Treal *c__, const Treal *s)
Definition: template_blas_rot.h:42