19int Mndscal(
unsigned int n,
double da,
double *dx,
int incx)
25 int i__,
m, nincx, mp1;
37 if (
n <= 0 || incx <= 0) {
49 for (i__ = 1; i__2 < 0 ? i__ >= i__1 : i__ <= i__1; i__ += i__2) {
50 dx[i__] = da * dx[i__];
65 for (i__ = 1; i__ <= i__2; ++i__) {
66 dx[i__] = da * dx[i__];
75 for (i__ = mp1; i__ <= i__2; i__ += 5) {
76 dx[i__] = da * dx[i__];
77 dx[i__ + 1] = da * dx[i__ + 1];
78 dx[i__ + 2] = da * dx[i__ + 2];
79 dx[i__ + 3] = da * dx[i__ + 3];
80 dx[i__ + 4] = da * dx[i__ + 4];
int Mndscal(unsigned int, double, double *, int)
This file contains a specialised ROOT message handler to test for diagnostic in unit tests.