Ex.: Integração Numérica (cont.)
h = (b-a)/n; local_n = n/p;
local_a = a + my_rank*local_n*h; local_b = local_a + local_n*h;
integral = Trap(local_a, local_b, local_n, h);
for (source = 1; source < p; source++) {
MPI_Recv(&integral, 1, MPI_FLOAT, source, tag,
MPI_COMM_WORLD, &status);
total = total + integral;
MPI_Send(&integral, 1, MPI_FLOAT, dest,