- // fixme: shall we do something special when duration is 0 ?
- double duration = opt::comp_cost(load);
- m_task_t task = MSG_task_create("computation", duration, 0.0, NULL);
- DEBUG2("compute %g flop%s.", duration, ESSE(duration));
- MSG_task_execute(task);
- MSG_task_destroy(task);
+ using std::tr1::bind;
+ using std::tr1::placeholders::_1;
+
+ double next_iter_after_date = 0.0;
+ while (still_running()) {
+ // receive
+ double sleep_duration = real_load
+ ? std::max(MSG_get_clock() - next_iter_after_date, 0.0)
+ : opt::min_comp_iter_duration;
+ data_receive(sleep_duration);
+
+ comm.data_flush(false);
+
+ if (real_load == 0.0)
+ continue;
+
+ // send
+ std::for_each(neigh.begin(), neigh.end(),
+ bind(&process::data_send, this, _1));
+
+ // compute
+ ++comp_iter;
+ double flops = opt::comp_cost(real_load);
+ m_task_t task = MSG_task_create("computation", flops, 0.0, NULL);
+ TRACE_msg_set_task_category(task, TRACE_CAT_COMP);
+ XBT_DEBUG("compute %g flop%s", flops, ESSE(flops));
+ MSG_task_execute(task);
+ comp += flops;
+ MSG_task_destroy(task);
+
+ next_iter_after_date = MSG_get_clock() + opt::min_comp_iter_duration;
+ }
+
+ XBT_VERB("Going to finalize for %s...", __func__);
+ XBT_DEBUG("send DATA_CLOSE to %zu neighbor%s",
+ neigh.size(), ESSE(neigh.size()));
+ std::for_each(neigh.begin(), neigh.end(),
+ bind(&process::data_close, this, _1));
+ while (data_close_pending) {
+ comm.data_flush(false);
+ XBT_DEBUG("waiting for %d DATA CLOSE", data_close_pending);
+ data_receive(-1.0);
+ }
+ comm.data_flush(true);
