35 #ifndef TEMPLATE_BLAS_ROT_HEADER
36 #define TEMPLATE_BLAS_ROT_HEADER
41 Treal *dy,
const integer *incy,
const Treal *c__,
const Treal *s)
59 if (*incx == 1 && *incy == 1) {
67 ix = (-(*n) + 1) * *incx + 1;
70 iy = (-(*n) + 1) * *incy + 1;
73 for (i__ = 1; i__ <= i__1; ++i__) {
74 dtemp = *c__ * dx[ix] + *s * dy[iy];
75 dy[iy] = *c__ * dy[iy] - *s * dx[ix];
85 for (i__ = 1; i__ <= i__1; ++i__) {
86 dtemp = *c__ * dx[i__] + *s * dy[i__];
87 dy[i__] = *c__ * dy[i__] - *s * dx[i__];
int integer
Definition: template_blas_common.h:38
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:40