Dr. David Cronk Innovative Computing Lab University of ... - It works!

BCAST
If (myrank == root) {
fp = fopen (filename, ‘r’);
fscanf (fp, ‘%d’, &iters);
fclose (fp);
MPI_Bcast (&iters, 1, MPI_INT,
root, MPI_COMM_WORLD);
}
else {
MPI_Recv (&iters, 1, MPI_INT,
root, tag, MPI_COMM_WORLD,
&status);
}
If (myrank == root) {
fp = fopen (filename, ‘r’);
fscanf (fp, ‘%d’, &iters);
fclose (fp);
}
MPI_Bcast (&iters, 1, MPI_INT,
root, MPI_COMM_WORLD);
cont
THAT’S BETTER
OOPS!
David Cronk 88