38 double *tv = v, *tw = w, *end = tv + *n;
41 if ((tmp = fabs(*tv++) * *tw++) > vm) vm = tmp;
51 double ret_val, d__1, d__2, d__3;
71 for (i__ = 1; i__ <= i__1; ++i__)
75 d__2 = vm, d__3 = (d__1 = v[i__], fabs(d__1)) * w[i__];
double dmnorm_(C_INT *n, double *v, double *w)