/*?-*-?Mode:?C;?c-basic-offset:4?;?-*-?*/
/*
?*??（C）?2001?by?Argonne?National?Laboratory.
?*??????See?COPYRIGHT?in?top-level?directory.
?*/

#include?
#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?==?3）{
????????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?received?from?parent:?%s\n“?str）;
????????fflush（stdout）;
????}

????MPI_Finalize（）;
????return?0;
}