37 #ifndef TEMPLATE_BLAS_SCAL_HEADER
38 #define TEMPLATE_BLAS_SCAL_HEADER
58 if (*n <= 0 || *incx <= 0) {
68 for (i__ = 1; i__2 < 0 ? i__ >= i__1 : i__ <= i__1; i__ += i__2) {
69 dx[i__] = *da * dx[i__];
81 for (i__ = 1; i__ <= i__2; ++i__) {
82 dx[i__] = *da * dx[i__];
91 for (i__ = mp1; i__ <= i__2; i__ += 5) {
92 dx[i__] = *da * dx[i__];
93 dx[i__ + 1] = *da * dx[i__ + 1];
94 dx[i__ + 2] = *da * dx[i__ + 2];
95 dx[i__ + 3] = *da * dx[i__ + 3];
96 dx[i__ + 4] = *da * dx[i__ + 4];