#include "mpi.h" 
int main( int argc, char **argv ) 
{ 
	//Second level of spawns
	if (argc>2){
		int provided;
		MPI_Init_thread( &argc, &argv, MPI_THREAD_MULTIPLE, &provided ); 
		MPI_Comm parent;
		MPI_Comm_get_parent(&parent);
		printf("launched x86\n");
		
		printf("free lowlevel CRASHING (HANGS W I_MPI_DEBUG)\n");
		MPI_Comm_free(0);
		printf("end free lowlevel CRASHING\n");
		MPI_Finalize();
		sleep(10);
		return 0;
	}
	//First level of spawns
	if (argc>1){
		int provided;
		int number_of_spawns = 4;
		MPI_Comm client; 
		MPI_Status status; 
		int    size, again; 
		MPI_Init_thread( &argc, &argv, MPI_THREAD_MULTIPLE, &provided ); 
		MPI_Comm_size(MPI_COMM_WORLD, &size); 
		int rank;
		MPI_Comm_rank(MPI_COMM_WORLD,&rank);
		char *array_of_commands[number_of_spawns];
		char **array_of_argv[number_of_spawns];
		MPI_Info  array_of_info[number_of_spawns];
		int n_process[number_of_spawns];		
		int i=0;
		printf("PRINTING LIST OF SPAWNING HOSTS:\n");
		for (i=0; i<number_of_spawns; i++){
			n_process[i]=1;
			char *argvv[] = { "./helloworld.out.x86_64","jjsjs", 0};  
			array_of_argv[i]=argvv;
			MPI_Info info;
			MPI_Info_create(&info);
			printf("Adding host %s\n","localhost");
			MPI_Info_set(info, "host","localhost");	
			array_of_commands[i]="./hello.out.x86_64";		
			//array_of_commands[i]="./launch.sh";		
			array_of_info[i]=info;			
		}
		printf("LIST PRINTED\n\n");
		printf("Launching (serializing this call as it crashes when called from multiple processes at the same time "
			"	this bug is already reported via premium)\n");
		sleep(rank);
		MPI_Comm_spawn_multiple(number_of_spawns,array_of_commands, array_of_argv, n_process,
					array_of_info, 0, MPI_COMM_SELF, &client, MPI_ERRCODES_IGNORE);
		printf("Finished launching\n");
		sleep(5);
		MPI_Finalize();
		return 1;
	}
	//"Master"
	int provided;
	int number_of_spawns = 4;
    MPI_Comm client; 
    MPI_Status status; 
    int    size, again; 
    MPI_Init_thread( &argc, &argv, MPI_THREAD_MULTIPLE, &provided ); 
    MPI_Comm_size(MPI_COMM_WORLD, &size); 
	char *array_of_commands[number_of_spawns];
    char **array_of_argv[number_of_spawns];
    MPI_Info  array_of_info[number_of_spawns];
    int n_process[number_of_spawns];		
	int i=0;
	printf("PRINTING LIST OF SPAWNING HOSTS:\n");
	for (i=0; i<number_of_spawns; i++){
        n_process[i]=1;
		char *argvv[] = { "./helloworld.out.x86_64", 0};  
        array_of_argv[i]=argvv;
        MPI_Info info;
        MPI_Info_create(&info);
		printf("Adding host %s\n","localhost");
		MPI_Info_set(info, "host","localhost");	
		array_of_commands[i]="./hello.out.x86_64";		
		//array_of_commands[i]="./launch.sh";		
		array_of_info[i]=info;			
	}
	printf("LIST PRINTED\n\n");
	printf("Launching\n");
	MPI_Comm_spawn_multiple(number_of_spawns,array_of_commands, array_of_argv, n_process,
                array_of_info, 0, MPI_COMM_SELF, &client, MPI_ERRCODES_IGNORE);
	printf("Finished launching\n");
	
	sleep(10);
	MPI_Finalize();
	
}