BaseCode.c 543 Bytes
Newer Older
iker_martin's avatar
iker_martin committed
1
2
3
4
5
6
7
8
9
10
11
12
#include <stdio.h>
#include <stdlib.h>
#include <mpi.h>

int main(int argc, char* argv[]) {
    MPI_Init(&argc, &argv);
    
    MPI_Comm spawn, new_comm;
    MPI_Comm_get_parent(&spawn);
    if(spawn == MPI_COMM_NULL) {
	int num_c = atoi(argv[1]);
        MPI_Comm_spawn(argv[0], MPI_ARGV_NULL, num_c, MPI_INFO_NULL, 0, MPI_COMM_WORLD, &spawn, MPI_ERRCODES_IGNORE);
Iker Martín Álvarez's avatar
Iker Martín Álvarez committed
13
        MPI_Intercomm_merge(spawn, 0,  &new_comm);
iker_martin's avatar
iker_martin committed
14
15
	
    } else {
Iker Martín Álvarez's avatar
Iker Martín Álvarez committed
16
        MPI_Intercomm_merge(spawn, 1, &new_comm);
iker_martin's avatar
iker_martin committed
17
18
19
20
21
	MPI_Barrier(MPI_COMM_WORLD);
    }

    MPI_Finalize(); 
}