#include "private.h"
-#include <string.h>
XBT_LOG_NEW_DEFAULT_SUBCATEGORY(smpi_bench, smpi,
"Logging specific to SMPI (benchmarking)");
-void smpi_execute(double duration)
-{
+static void smpi_execute(double duration) {
smx_host_t host;
smx_action_t action;
smx_mutex_t mutex;
action = SIMIX_action_execute(host, "computation", duration);
SIMIX_mutex_lock(mutex);
SIMIX_register_action_to_condition(action, cond);
- for (state = SIMIX_action_get_state(action);
- state == SURF_ACTION_READY ||
- state == SURF_ACTION_RUNNING; state = SIMIX_action_get_state(action)) {
+ for(state = SIMIX_action_get_state(action);
+ state == SURF_ACTION_READY ||
+ state == SURF_ACTION_RUNNING; state = SIMIX_action_get_state(action)) {
SIMIX_cond_wait(cond, mutex);
}
SIMIX_unregister_action_to_condition(action, cond);
}
}
-void smpi_bench_begin()
-{
+void smpi_bench_begin(int rank, const char* mpi_call) {
+ double now = SIMIX_get_clock();
+
+ if(mpi_call && rank >= 0 && xbt_cfg_get_int(_surf_cfg_set, "SMPE")) {
+ INFO3("SMPE: ts=%f rank=%d type=end et=%s", now, rank, mpi_call);
+ }
xbt_os_timer_start(smpi_process_timer());
}
-void smpi_bench_end()
-{
+void smpi_bench_end(int rank, const char* mpi_call) {
xbt_os_timer_t timer = smpi_process_timer();
+ double now = SIMIX_get_clock();
xbt_os_timer_stop(timer);
smpi_execute(xbt_os_timer_elapsed(timer));
+ if(mpi_call && rank >= 0 && xbt_cfg_get_int(_surf_cfg_set, "SMPE")) {
+ INFO3("SMPE: ts=%f rank=%d type=begin et=%s", now, rank, mpi_call);
+ }
}
/*