31 double *atol,
double *ycur,
double *ewt)
81 for (i__ = 1; i__ <= i__1; ++i__)
84 ewt[i__] = rtol[1] * (d__1 = ycur[i__], fabs(d__1)) + atol[1];
91 for (i__ = 1; i__ <= i__1; ++i__)
94 ewt[i__] = rtol[1] * (d__1 = ycur[i__], fabs(d__1)) + atol[i__];
101 for (i__ = 1; i__ <= i__1; ++i__)
104 ewt[i__] = rtol[i__] * (d__1 = ycur[i__], fabs(d__1)) + atol[1];
111 for (i__ = 1; i__ <= i__1; ++i__)
114 ewt[i__] = rtol[i__] * (d__1 = ycur[i__], fabs(d__1)) + atol[i__];
C_INT dewset_(C_INT *n, C_INT *itol, double *rtol, double *atol, double *ycur, double *ewt)