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];