}
}
-void smpi_execute_public(double duration) {
- smpi_bench_end();
- smpi_execute(duration);
- smpi_bench_begin();
+void smpi_execute_benched(double duration)
+{
+ smpi_bench_end();
+ smpi_execute(duration);
+ smpi_bench_begin();
}
void smpi_bench_begin()
smpi_trace_set_call_location(file, *line);
}
- /**
+ /**
* Required for Fortran if -fsecond-underscore is activated
*/
void smpi_trace_set_call_location__(const char* file, int* line) {