hwloc: null check for cpuset
[mpich-dev.git] / examples / spawn_merge_child1.c
1 /* -*- Mode: C; c-basic-offset:4 ; indent-tabs-mode:nil ; -*- */
2 /*
3  *  (C) 2001 by Argonne National Laboratory.
4  *      See COPYRIGHT in top-level directory.
5  */
6
7 #include <stdio.h>
8 #include "mpi.h"
9
10 int main( int argc, char *argv[] )
11 {
12     char str[10];
13     MPI_Comm intercomm1, intracomm, intercomm2;
14     int err, errcodes[256], rank;
15
16     MPI_Init(&argc, &argv);
17
18 /*    printf("Child out of MPI_Init\n");
19     fflush(stdout);
20 */
21     MPI_Comm_rank(MPI_COMM_WORLD, &rank);
22
23     MPI_Comm_get_parent(&intercomm1);
24
25     MPI_Intercomm_merge(intercomm1, 1, &intracomm);
26
27     err = MPI_Comm_spawn("spawn_merge_child2", MPI_ARGV_NULL, 2,
28                          MPI_INFO_NULL, 2, intracomm,
29                          &intercomm2, errcodes);  
30     if (err) printf("Error in MPI_Comm_spawn\n");
31
32     MPI_Comm_rank(intercomm2, &rank);
33
34     if (rank == 3) {
35         err = MPI_Recv(str, 3, MPI_CHAR, 1, 0, intercomm2, MPI_STATUS_IGNORE);
36         printf("Parent (first child) received from child 2: %s\n", str);
37         fflush(stdout);
38         
39         err = MPI_Send("bye", 4, MPI_CHAR, 1, 0, intercomm2); 
40     }
41
42     MPI_Finalize();
43     return 0;
44 }