You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
19 lines
522 B
C
19 lines
522 B
C
7 months ago
|
#include "mpi.h"
|
||
|
|
#include <string.h>
|
||
|
|
#include <stdio.h>
|
||
|
|
int main( int argc, char **argv){
|
||
|
|
char message[20]; int myrank; MPI_Status status;
|
||
|
|
MPI_Init(&argc, &argv);
|
||
|
|
MPI_Comm_rank(MPI_COMM_WORLD, &myrank);
|
||
|
|
if (myrank == 0) {
|
||
|
|
strcpy(message,"Hello, there");
|
||
|
|
MPI_Send(message, strlen(message)+1, MPI_CHAR, 1, 99, MPI_COMM_WORLD);
|
||
|
|
} else if (myrank == 1) {
|
||
|
|
printf("Message contains: %s\n",message);
|
||
|
|
MPI_Recv(message, 20, MPI_CHAR, 0, 99, MPI_COMM_WORLD,&status);
|
||
|
|
printf("Received :%s:\n",message);
|
||
|
|
}
|
||
|
|
MPI_Finalize();
|
||
|
|
return 0;
|
||
|
|
}
|