Complete MPI program 1 to perform the necessary error checking for our previous example (MPI program 2) to ensure that two processes are required for running the program. Program 1 (to complete): _{#include #include #include}

_{int main(int argc, char* argv[]) { int my_rank, comm_sz; int token = 1; MPI_Init(&argc, &argv);}

_{MPI_Comm_size(MPI_COMM_WORLD, &comm_sz); MPI_Comm_rank(MPI_COMM_WORLD, &my_rank);}

_{if ( ) { if (my_rank == 0)}

_{fprintf(stderr, " ");}

_{MPI_Finalize();}

_{return 0; }}

_{if(my_rank == 0) { MPI_Send(&token, 1, MPI_INT, 1, 0, MPI_COMM_WORLD); printf(" Process %d sent token %d to process 1. ", my_rank, token); }}

_{else { MPI_Recv(&token, 1, MPI_INT, 0, 0, MPI_COMM_WORLD, MPI_STATUS_IGNORE); printf("Process %d received token %d from process 0. ", my_rank, token); }}

_{MPI_Finalize();}

_{return 0; }} Program 2 (Program we are checking for errors):

include #include #include

int main(void) { int my_rank, comm_sz; int token = 1; MPI_Init(NULL, NULL);

MPI_Comm_size(MPI_COMM_WORLD, &comm_sz); MPI_Comm_rank(MPI_COMM_WORLD, &my_rank);

if(my_rank == 0) { MPI_Send(&token, 1, MPI_INT, 1, 0, MPI_COMM_WORLD); printf("Process %d sent token %d to process 1 ", my_rank, token); }

else { MPI_Recv(&token, 1, MPI_INT, 0, 0, MPI_COMM_WORLD, MPI_STATUS_IGNORE); printf("Process %d received token %d from process 0 ", my_rank, token); }

MPI_Finalize();

return 0; }