9c2f17eb01
Update the slave spawn tests to properly indicate participation as being solely MPI_COMM_SELF. This commit was SVN r20961.
38 строки
728 B
C
38 строки
728 B
C
#include <mpi.h>
|
|
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
|
|
int main(int argc, char *argv[])
|
|
{
|
|
long count = 0;
|
|
int i = 8, j;
|
|
int self;
|
|
int do_barrier = 0;
|
|
int k;
|
|
double pi;
|
|
|
|
if (getenv("DO_BARRIER")) {
|
|
do_barrier = 1;
|
|
}
|
|
|
|
MPI_Init(&argc, &argv);
|
|
MPI_Comm_rank(MPI_COMM_WORLD, &self);
|
|
while (1) {
|
|
#if 0
|
|
for (k=0; k < (7-self)*1000; k++) {
|
|
pi = 3.14159 * 18.0 / 35.3;
|
|
}
|
|
#endif
|
|
MPI_Reduce(&i, &j, 1, MPI_INT, MPI_SUM, 0, MPI_COMM_WORLD);
|
|
if (do_barrier) {
|
|
MPI_Barrier(MPI_COMM_WORLD);
|
|
}
|
|
if (0 == (++count % 10000)) {
|
|
fprintf(stderr, "%ld still going at %d\n", self, count);
|
|
}
|
|
}
|
|
MPI_Finalize();
|
|
|
|
return 0;
|
|
}
|