Pavan Balaji
b2e6fbd0ae
script generated to consistently point to the top-level copyright. Signed-off-by: Pavan Balaji <balaji@anl.gov>
32 linhas
644 B
C
32 linhas
644 B
C
/*
|
|
* Copyright (C) by Argonne National Laboratory
|
|
* See COPYRIGHT in top-level directory
|
|
*/
|
|
|
|
#include <stdio.h>
|
|
#include "mpi.h"
|
|
|
|
int main(int argc, char *argv[])
|
|
{
|
|
MPI_Comm intercomm;
|
|
char str[10];
|
|
int err, rank;
|
|
|
|
MPI_Init(&argc, &argv);
|
|
|
|
MPI_Comm_rank(MPI_COMM_WORLD, &rank);
|
|
|
|
MPI_Comm_get_parent(&intercomm);
|
|
|
|
if (rank == 1) {
|
|
err = MPI_Send("hi", 3, MPI_CHAR, 3, 0, intercomm);
|
|
|
|
err = MPI_Recv(str, 4, MPI_CHAR, 3, 0, intercomm, MPI_STATUS_IGNORE);
|
|
printf("Child 2 received from parent (first child): %s\n", str);
|
|
fflush(stdout);
|
|
}
|
|
|
|
MPI_Finalize();
|
|
return 0;
|
|
}
|