35 #ifndef TEMPLATE_BLAS_SCAL_HEADER 36 #define TEMPLATE_BLAS_SCAL_HEADER 56 if (*n <= 0 || *incx <= 0) {
66 for (i__ = 1; i__2 < 0 ? i__ >= i__1 : i__ <= i__1; i__ += i__2) {
67 dx[i__] = *da * dx[i__];
79 for (i__ = 1; i__ <= i__2; ++i__) {
80 dx[i__] = *da * dx[i__];
89 for (i__ = mp1; i__ <= i__2; i__ += 5) {
90 dx[i__] = *da * dx[i__];
91 dx[i__ + 1] = *da * dx[i__ + 1];
92 dx[i__ + 2] = *da * dx[i__ + 2];
93 dx[i__ + 3] = *da * dx[i__ + 3];
94 dx[i__ + 4] = *da * dx[i__ + 4];
int template_blas_scal(const integer *n, const Treal *da, Treal *dx, const integer *incx)
Definition: template_blas_scal.h:41
int integer
Definition: template_blas_common.h:38