#include "misc.h"
#include "options.h"
+#include "tracing.h"
#include "process.h"
comp = 0.0;
- prev_load_broadcast = -1; // force sending of load on first send()
+ prev_load_broadcast = -1; // force sending of load on first send_all()
expected_load = load;
total_load_running += load;
total_load_init += load;
process::~process()
{
total_load_exit += load;
+ if (opt::bookkeeping) {
+ INFO4("Final load after %d:%d iterations: %g ; expected: %g",
+ lb_iter, comp_iter, load, expected_load);
+ } else {
+ INFO2("Final load after %d iterations: %g",
+ lb_iter, load);
+ if (lb_iter != comp_iter)
+ WARN2("lb_iter (%d) and comp_iter (%d) differ!",
+ lb_iter, comp_iter);
+ }
+ VERB1("Total computation for this process: %g", comp);
}
int process::run()
VERB0("Starting...");
comp_iter = lb_iter = 0;
while (true) {
- if (opt::min_iter_duration) {
+ double ld = lb_load();
+ if (ld > 0.0) {
double now = MSG_get_clock();
- if (now < next_iter_after_date){
- double delay = next_iter_after_date - now;
- DEBUG1("sleeping for %g s", delay);
- MSG_process_sleep(delay);
- }
+ if (now < next_iter_after_date)
+ MSG_process_sleep(next_iter_after_date - now);
next_iter_after_date = MSG_get_clock() + opt::min_iter_duration;
- }
- double ld = lb_load();
- if (ld > 0.0) {
++lb_iter;
if (opt::log_rate && lb_iter % opt::log_rate == 0) {
lb_load() = ld;
// send load information, and load (data) if any
- send();
+ send_all();
if (load > 0.0) {
++comp_iter;
compute();
*/
VERB0("Done.");
- if (opt::bookkeeping) {
- INFO4("Final load after %d:%d iterations: %g ; expected: %g",
- lb_iter, comp_iter, load, expected_load);
- } else {
- INFO2("Final load after %d iterations: %g",
- lb_iter, load);
- if (lb_iter != comp_iter)
- WARN2("lb_iter (%d) and comp_iter (%d) differ!",
- lb_iter, comp_iter);
- }
return 0;
}
if (load > 0.0) {
double flops = opt::comp_cost(load);
m_task_t task = MSG_task_create("computation", flops, 0.0, NULL);
+ TRACE_msg_set_task_category(task, TRACE_CAT_COMP);
DEBUG2("compute %g flop%s", flops, ESSE(flops));
MSG_task_execute(task);
comp += flops;
comm.send(nb.get_data_mbox(), new message(message::LOAD, load_to_send));
}
-void process::send()
+void process::send_all()
{
using std::tr1::bind;
using std::tr1::placeholders::_1;