ping_correct.c
View Options

			#include <stdio.h>
			#include <mpi.h>

			int main(int argc, char *argv[]) {
			int rank, size;
			int buf[100];
			MPI_Status status;
			MPI_Init(&argc, &argv);
			MPI_Comm_rank(MPI_COMM_WORLD, &rank);
			MPI_Comm_size(MPI_COMM_WORLD, &size);
			if (rank == 0) {
			MPI_Send(buf, 100, MPI_INT, 1, 0, MPI_COMM_WORLD);
			} else if (rank==1) {
			MPI_Recv(buf, 100, MPI_INT, 0, 0, MPI_COMM_WORLD,&status);
			}
			MPI_Finalize();
			}

phys-743-exercises/mpi/ping_correct.cf72303151507master