1 /* Copyright (c) 2009-2014. The SimGrid Team.
2 * All rights reserved. */
4 /* This program is free software; you can redistribute it and/or modify it
5 * under the terms of the license (GNU LGPL) which comes with this package. */
7 /* This example should be instructive to learn about SMPI_SAMPLE_LOCAL and
8 SMPI_SAMPLE_GLOBAL macros for execution sampling */
13 static double compute(double d0)
17 for (j = 0; j < 100 * 1000 * 1000; j++) { /* 100 kflop */
27 int main(int argc, char *argv[])
32 MPI_Init(&argc, &argv);
34 MPI_Comm_size(MPI_COMM_WORLD, &n);
36 for (i = 0; i < 5; i++) {
37 /* I want no more than n + 1 benchs (thres < 0) */
38 SMPI_SAMPLE_GLOBAL(n + 1, -1) {
40 fprintf(stderr, "(%12.6f) [rank:%d]", MPI_Wtime(), smpi_process_index());
42 fprintf(stderr, "(0)");
43 fprintf(stderr, " Run the first computation. It's globally benched, "
44 "and I want no more than %d benchmarks (thres<0)\n", n + 1);
50 for (i = 0; i < 5; i++) {
51 /* I want the standard error to go below 0.1 second.
52 * Two tests at least will be run (count is not > 0) */
53 SMPI_SAMPLE_LOCAL(0, 0.1) {
54 if (verbose || n++ < 2) {
56 fprintf(stderr, "(%12.6f)", MPI_Wtime());
58 fprintf(stderr, "(1)");
60 " [rank:%d] Run the first (locally benched) computation. It's locally benched, and I want the "
61 "standard error to go below 0.1 second (count is not >0)\n", smpi_process_index());
68 fprintf(stderr, "(%12.6f) [rank:%d] The result of the computation is: %f\n", MPI_Wtime(), smpi_process_index(), d);
70 fprintf(stderr, "(2) [rank:%d] Done.\n", smpi_process_index());