Logo AND Algorithmique Numérique Distribuée

Public GIT Repository
We want the output for rank 0 as well...
[simgrid.git] / src / smpi / smpi_bench.c
1 #include "private.h"
2
3 XBT_LOG_NEW_DEFAULT_SUBCATEGORY(smpi_bench, smpi,
4                                 "Logging specific to SMPI (benchmarking)");
5
6 static void smpi_execute(double duration) {
7   smx_host_t host;
8   smx_action_t action;
9   smx_mutex_t mutex;
10   smx_cond_t cond;
11   e_surf_action_state_t state;
12
13   if(duration > 0.001) {
14     host = SIMIX_host_self();
15     mutex = SIMIX_mutex_init();
16     cond = SIMIX_cond_init();
17     DEBUG1("Sleep for %f to handle real computation time", duration);
18     duration *= xbt_cfg_get_double(_surf_cfg_set, "reference_speed");
19     action = SIMIX_action_execute(host, "computation", duration);
20     SIMIX_mutex_lock(mutex);
21     SIMIX_register_action_to_condition(action, cond);
22     for(state = SIMIX_action_get_state(action);
23         state == SURF_ACTION_READY ||
24         state == SURF_ACTION_RUNNING; state = SIMIX_action_get_state(action)) {
25       SIMIX_cond_wait(cond, mutex);
26     }
27     SIMIX_unregister_action_to_condition(action, cond);
28     SIMIX_mutex_unlock(mutex);
29     SIMIX_action_destroy(action);
30     SIMIX_cond_destroy(cond);
31     SIMIX_mutex_destroy(mutex);
32   }
33 }
34
35 void smpi_bench_begin(int rank, const char* mpi_call) {
36   double now = SIMIX_get_clock();
37
38   if(mpi_call && rank >= 0 && xbt_cfg_get_int(_surf_cfg_set, "SMPE")) {
39     INFO3("SMPE: ts=%f rank=%d type=end et=%s", now, rank, mpi_call);
40   }
41   xbt_os_timer_start(smpi_process_timer());
42 }
43
44 void smpi_bench_end(int rank, const char* mpi_call) {
45   xbt_os_timer_t timer = smpi_process_timer();
46   double now = SIMIX_get_clock();
47
48   xbt_os_timer_stop(timer);
49   smpi_execute(xbt_os_timer_elapsed(timer));
50   if(mpi_call && rank >= 0 && xbt_cfg_get_int(_surf_cfg_set, "SMPE")) {
51     INFO3("SMPE: ts=%f rank=%d type=begin et=%s", now, rank, mpi_call);
52   }
53 }
54
55 /*
56 TODO
57 void smpi_do_once_1(const char *file, int line)
58 {
59   smpi_do_once_duration_node_t curr, prev;
60
61   smpi_bench_end();
62   SIMIX_mutex_lock(smpi_global->do_once_mutex);
63   prev = NULL;
64   for(curr = smpi_global->do_once_duration_nodes;
65       NULL != curr && (strcmp(curr->file, file) || curr->line != line);
66       curr = curr->next) {
67     prev = curr;
68   }
69   if(NULL == curr) {
70     curr = xbt_new(s_smpi_do_once_duration_node_t, 1);
71     curr->file = xbt_strdup(file);
72     curr->line = line;
73     curr->duration = -1;
74     curr->next = NULL;
75     if(NULL == prev) {
76       smpi_global->do_once_duration_nodes = curr;
77     } else {
78       prev->next = curr;
79     }
80   }
81   smpi_global->do_once_duration = &curr->duration;
82 }
83
84 int smpi_do_once_2()
85 {
86   double duration = *(smpi_global->do_once_duration);
87
88   if(0 > duration) {
89     smpi_start_timer();
90     return 1;
91   }
92   SIMIX_mutex_unlock(smpi_global->do_once_mutex);
93   smpi_execute(duration);
94   smpi_bench_begin();
95   return 0;
96 }
97
98 void smpi_do_once_3()
99 {
100   *(smpi_global->do_once_duration) = smpi_stop_timer();
101 }
102 */