/*The Parallel Hello World Program*/#include "rompi.h" extern int torusdebug; intmain(int argc, char **argv){	int node, nproc;	unsigned int buf[1];	MPI_Status status; 	MPI_Init(&argc,&argv);	MPI_Comm_rank(MPI_COMM_WORLD, &node);	MPI_Comm_size(MPI_COMM_WORLD, &nproc);		print("Hello World from Node %d of %d\n",node, nproc);		if (node) {		MPI_Send(buf, 1, MPI_INT, 0, 1, MPI_COMM_WORLD);		print("%d: Sent a message to rank 0\n", node);	} else {		int i;		torusdebug |= 2;		for(i = 1; i < nproc; i++) {			MPI_Recv(buf, 	1, MPI_INT, i, 1, MPI_COMM_WORLD, &status);			//print("0: Recv'd from %d\n", i);		}		print("0: All %d nodes checked in\n", nproc-1);	}	print("%d: Finalize\n", node);	MPI_Finalize();	return 0;}