}
}
+#ifdef SMPI_F2C
int smpi_process_argc(void) {
smpi_process_data_t data = smpi_process_data();
return data->argc ? *(data->argc) - 1 : 0;
}
-#ifdef SMPI_F2C
int smpi_process_getarg(integer* index, char* dst, ftnlen len) {
smpi_process_data_t data = smpi_process_data();
char* arg;
}
return 0;
}
-#endif
int smpi_global_size(void) {
char* value = getenv("SMPI_GLOBAL_SIZE");
}
return atoi(value);
}
+#endif
smpi_process_data_t smpi_process_data(void)
{
int i;
smpi_bench_destroy();
+ smpi_group_destroy(smpi_comm_group(MPI_COMM_WORLD));
smpi_comm_destroy(MPI_COMM_WORLD);
MPI_COMM_WORLD = MPI_COMM_NULL;
for (i = 0; i < count; i++) {
XBT_LOG_CONNECT(smpi_mpi);
XBT_LOG_CONNECT(smpi_mpi_dt);
XBT_LOG_CONNECT(smpi_pmpi);
+ XBT_LOG_CONNECT(smpi_replay);
#ifdef HAVE_TRACING
TRACE_global_init(&xargc, xargv);
else
SIMIX_run();
- if (xbt_cfg_get_int(_surf_cfg_set, "smpi/display_timing"))
+ if (surf_cfg_get_int("smpi/display_timing"))
XBT_INFO("Simulation time: %g seconds.", SIMIX_get_clock());
smpi_global_destroy();