34 C_INT a_dim1, a_offset, i__1, i__2;
35 double ret_val, d__1, d__2;
50 a_offset = 1 + a_dim1;
57 for (i__ = 1; i__ <= i__1; ++i__)
62 for (j = 1; j <= i__2; ++j)
65 sum += (d__1 = a[i__ + j * a_dim1], fabs(d__1)) / w[j];
69 d__1 = an, d__2 = sum * w[i__];
double dfnorm_(C_INT *n, double *a, double *w)