int main (int argc, char **argv)
{
MPI_Init (NULL, NULL);
int siterank;
MPI_Comm siteparent, sitemachine, sitecomm, ft_sitecomm;
MPI_Comm_get_parent (&siteparent);
siteparent = sitecomm;
sitecomm = MPI_COMM_WORLD;
MPI_Comm_rank (sitecomm, &siterank);
MPI_Comm_set_errhandler (sitecomm, MPI_ERRORS_RETURN);
if (siterank==0) raise (SIGKILL);
MPIX_Comm_shrink (sitecomm, &ft_sitecomm);
printf ("Hey there, I'm Site %d, and I'm working! :) \n\n", siterank);
MPI_Comm_spawn ("machine", MPI_ARGV_NULL, 3, MPI_INFO_NULL, 0, ft_sitecomm,
&sitemachine, MPI_ERRCODES_IGNORE);
MPI_Finalize ();
return 0;
}