You are here

Exercise 8

Exercise 8

Task 0 initializes a one-dimensional array assigning to each cell the value of its index. This array is then divided into chunks and sent to other processes. After having received the proper chunk, each process updates it by adding its rank and then sends it back to root process. (Analyze the cases for equal and not equal chunks separately).

`HINTS:`
	C
MPI_SCATTER	`int MPI_Scatter(void* sendbuf, int sendcount, MPI_Datatype sendtype, void* recvbuf, int recvcount, MPI_Datatype recvtype, int root, MPI_Comm comm)`
MPI_GATHER	`int MPI_Gather(void* sendbuf, int sendcount, MPI_Datatype sendtype, void* recvbuf, int recvcount, MPI_Datatype recvtype, int root, MPI_Comm comm)`
MPI_SCATTERV	`int MPI_Scatterv(void* sendbuf, int sendcounts, int displs, MPI_Datatype sendtype, void* recvbuf, int recvcount, MPI_Datatype recvtype, int root, MPI_Comm comm)`
MPI_GATHERV	`int MPI_Gatherv(void* sendbuf, int sendcount, MPI_Datatype sendtype, void* recvbuf, int recvcounts, int displs, MPI_Datatype recvtype, int root, MPI_Comm comm)`
MPI_INIT	`int MPI_Init(int argc, char **argv)`
MPI_COMM_SIZE	`int MPI_Comm_size(MPI_Comm comm, int *size)`
MPI_COMM_RANK	`int MPI_Comm_rank(MPI_Comm comm, int *rank)`
MPI_FINALIZE	`int MPI_Finalize(void)`
	FORTRAN
MPI_SCATTER	`MPI_SCATTER(SENDBUF, SENDCOUNT, SENDTYPE, RECVBUF, RECVCOUNT, RECVTYPE, ROOT, COMM, IERROR) <type> SENDBUF(), RECVBUF() INTEGER SENDCOUNT, SENDTYPE, RECVCOUNT, RECVTYPE, ROOT, COMM, IERROR`
MPI_GATHER	`MPI_GATHER(SENDBUF, SENDCOUNT, SENDTYPE, RECVBUF, RECVCOUNT, RECVTYPE, ROOT, COMM, IERROR) <type> SENDBUF(), RECVBUF() INTEGER SENDCOUNT, SENDTYPE, RECVCOUNT, RECVTYPE, ROOT, COMM, IERROR`
MPI_SCATTERV	`MPI_SCATTERV(SENDBUF, SENDCOUNTS, DISPLS, SENDTYPE, RECVBUF, RECVCOUNT, RECVTYPE, ROOT, COMM, IERROR) <type> SENDBUF(), RECVBUF() INTEGER SENDCOUNTS(), DISPLS(), SENDTYPE, RECVCOUNT, RECVTYPE, ROOT, COMM, IERROR`
MPI_GATHERV	`MPI_GATHERV(SENDBUF, SENDCOUNT, SENDTYPE, RECVBUF, RECVCOUNTS, DISPLS, RECVTYPE, ROOT, COMM, IERROR) <type> SENDBUF(), RECVBUF() INTEGER SENDCOUNT, SENDTYPE, RECVCOUNTS(), DISPLS(), RECVTYPE, ROOT, COMM, IERROR`
MPI_INIT	`MPI_INIT(IERROR) INTEGER IERROR`
MPI_COMM_SIZE	`MPI_COMM_SIZE(COMM, SIZE, IERROR) INTEGER COMM, SIZE, IERROR`
MPI_COMM_RANK	`MPI_COMM_RANK(COMM, RANK, IERROR) INTEGER COMM, RANK, IERROR`
MPI_FINALIZE	`MPI_FINALIZE(IERROR) INTEGER IERROR`