Go to the source code of this file.
double dfnorm_ |
( |
C_INT * |
, |
|
|
double * |
, |
|
|
double * |
|
|
) |
| |
Definition at line 31 of file dfnorm.cpp.
References C_INT, and max.
Referenced by CInternalSolver::dprja_().
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__];