void starpu_profiling_worker_helper_display_summary(void)
{
const char *stats;
double sum_consumed = 0.;
int profiling = starpu_profiling_status_get();
double overall_time = 0;
int workerid;
int worker_cnt = starpu_worker_get_count();
if (!((stats = getenv("STARPU_WORKER_STATS")) && atoi(stats))) return;
fprintf(stderr, "\nWorker statistics:\n");
fprintf(stderr, "******************\n");
for (workerid = 0; workerid < worker_cnt; workerid++)
{
struct starpu_profiling_worker_info info;
starpu_profiling_worker_get_info(workerid, &info);
char name[64];
starpu_worker_get_name(workerid, name, sizeof(name));
if (profiling)
{
double total_time = starpu_timing_timespec_to_us(&info.total_time) / 1000.;
double executing_time = starpu_timing_timespec_to_us(&info.executing_time) / 1000.;
double sleeping_time = starpu_timing_timespec_to_us(&info.sleeping_time) / 1000.;
if (total_time > overall_time)
overall_time = total_time;
fprintf(stderr, "%-32s\n", name);
fprintf(stderr, "\t%d task(s)\n\ttotal: %.2lf ms executing: %.2lf ms sleeping: %.2lf ms overhead %.2lf ms\n", info.executed_tasks, total_time, executing_time, sleeping_time, total_time - executing_time - sleeping_time);
if (info.used_cycles || info.stall_cycles)
fprintf(stderr, "\t%lu Mcy %lu Mcy stall\n", info.used_cycles/1000000, info.stall_cycles/1000000);
if (info.power_consumed)
fprintf(stderr, "\t%f J consumed\n", info.power_consumed);
}
else
{
fprintf(stderr, "\t%-32s\t%d task(s)\n", name, info.executed_tasks);
}
sum_consumed += info.power_consumed;
}
if (profiling)
{
const char *strval_idle_power = getenv("STARPU_IDLE_POWER");
if (strval_idle_power)
{
double idle_power = atof(strval_idle_power); /* Watt */
double idle_consumption = idle_power * overall_time / 1000.; /* J */
fprintf(stderr, "Idle consumption: %.2lf J\n", idle_consumption);
sum_consumed += idle_consumption;
}
}
if (profiling && sum_consumed)
fprintf(stderr, "Total consumption: %.2lf J\n", sum_consumed);
}
void display_stat_heat(void)
{
unsigned nworkers = starpu_worker_get_count();
fprintf(stderr, "STATS : \n");
unsigned worker;
for (worker = 0; worker < nworkers; worker++)
{
count_total_per_worker[worker] = count_11_per_worker[worker]
+ count_12_per_worker[worker]
+ count_21_per_worker[worker]
+ count_22_per_worker[worker];
count_11_total += count_11_per_worker[worker];
count_12_total += count_12_per_worker[worker];
count_21_total += count_21_per_worker[worker];
count_22_total += count_22_per_worker[worker];
}
fprintf(stderr, "\t11 (diagonal block LU)\n");
for (worker = 0; worker < nworkers; worker++)
{
if (count_total_per_worker[worker])
{
char name[32];
starpu_worker_get_name(worker, name, 32);
fprintf(stderr, "\t\t%s -> %d / %d (%2.2f %%)\n", name, count_11_per_worker[worker], count_11_total, (100.0*count_11_per_worker[worker])/count_11_total);
}
}
fprintf(stderr, "\t12 (TRSM)\n");
for (worker = 0; worker < nworkers; worker++)
{
if (count_total_per_worker[worker])
{
char name[32];
starpu_worker_get_name(worker, name, 32);
fprintf(stderr, "\t\t%s -> %d / %d (%2.2f %%)\n", name, count_12_per_worker[worker], count_12_total, (100.0*count_12_per_worker[worker])/count_12_total);
}
}
fprintf(stderr, "\t21 (TRSM)\n");
for (worker = 0; worker < nworkers; worker++)
{
if (count_total_per_worker[worker])
{
char name[32];
starpu_worker_get_name(worker, name, 32);
fprintf(stderr, "\t\t%s -> %d / %d (%2.2f %%)\n", name, count_21_per_worker[worker], count_21_total, (100.0*count_21_per_worker[worker])/count_21_total);
}
}
fprintf(stderr, "\t22 (SGEMM)\n");
for (worker = 0; worker < nworkers; worker++)
{
if (count_total_per_worker[worker])
{
char name[32];
starpu_worker_get_name(worker, name, 32);
fprintf(stderr, "\t\t%s -> %d / %d (%2.2f %%)\n", name, count_22_per_worker[worker], count_22_total, (100.0*count_22_per_worker[worker])/count_22_total);
}
}
}