var->value = 0.0;
var->df = 0.0;
+ var->func_f = func_f_def;
+ var->func_fp = func_fp_def;
var->func_fpi = func_fpi_def;
if(weight) xbt_swag_insert_at_head(var,&(sys->variable_set));
}
DEBUG1("%s",trace_buf);
trace_buf[0]='\000';
- xbt_assert3(!double_positive(sum-cnst->bound), "Incorrect value (%f is not smaller than %f): %g",
- sum,cnst->bound,sum-cnst->bound);
+ if(double_positive(sum-cnst->bound))
+ WARN3("Incorrect value (%f is not smaller than %f): %g",
+ sum,cnst->bound,sum-cnst->bound);
}
/* Printing Result */
xbt_swag_foreach(var, var_list) {
if(var->bound>0) {
DEBUG4("'%p'(%f) : %f (<=%f)",var,var->weight,var->value, var->bound);
- xbt_assert2(!double_positive(var->value-var->bound), "Incorrect value (%f is not smaller than %f",
+ if(double_positive(var->value-var->bound))
+ WARN2("Incorrect value (%f is not smaller than %f",
var->value, var->bound);
}
else
}
-
-/** \brief Attribute the value bound to var->bound.
- *
- * \param func_f default function f associated with the chosen protocol flavor
- * \param func_fp partial differential of f (f prime, f')
- * \param func_fpi inverse of the partial differential of f (f prime inverse, (f')^{-1})
- * \param func_fpip partial differential of the inverse of the partial differential of f (f prime inverse prime, ((f')^{-1})')
- *
- * Set default functions to the ones passed as parameters. This is a polimorfism in C pure, enjoy the roots of programming.
- *
- */
-void lmm_set_default_protocol_functions(double (* func_fpi) (lmm_variable_t var, double x))
-{
- func_fpi_def = func_fpi;
-}
-