// MASTER program launches one slave
// fails whith or without MPE directives

#include "mpi.h"
#include "mpe.h"
#include <iostream>

int main(int argv, char** argc)
{
	MPI_Init(&argv, &argc);
	MPE_Init_log();
	MPI_Comm interComm;
	MPI_Comm intraComm;  
	int nb_slaves=1;
	int *errcodes=new int[nb_slaves];
	
	MPI_Comm_spawn("slave.exe", MPI_ARGV_NULL, nb_slaves ,MPI_INFO_NULL, 0, MPI_COMM_WORLD, &interComm, errcodes);
	
	MPI_Intercomm_merge(interComm, 0, &intraComm);
	MPI_Barrier(intraComm);

	MPE_Finish_log( "example");
	MPI_Finalize();
	
	std::cout<<"DONE"<<std::endl;
	return 0;
}