/*
   * Author of revised version: Franklyn Pinedo
   *
   * Adapted from Source Code in C of Tutorial/User's Guide for MPI by
   * Peter Pacheco.
   */

import java.util.*;
import java.lang.*;
import java.net.*;
import mpi.* ;
 

class Hello
{
    
    static public void main(String[] args) throws MPIException
    {
      

	MPI.Init(args) ;

	int my_rank = 0; // Rank of process
	int source = 0;  // Rank of sender
	int dest = 0;    // Rank of receiver 
	int tag=50;  // Tag for messages	
	int myrank = MPI.COMM_WORLD.Rank() ;
	int p = MPI.COMM_WORLD.Size() ;

	if(myrank != 0) // is another node!
	{
	    dest=0;
	    char[] message = null;
	    try
	    {
		message = ( "Greetings from computer: " + InetAddress.getLocalHost().getHostName()  ).toCharArray();	   
	    }
	    catch ( Exception error )
	    {

	    }
	    MPI.COMM_WORLD.Send( message, 0, message.length, MPI.CHAR,dest, tag );
	}
	else
	{  // my_rank == 0
	    for ( source =1;source != p;source++)
	    {
		char[] message = new char[60];
		MPI.COMM_WORLD.Recv( message, 0, 60, MPI.CHAR, source, tag );
		System.out.println( message );
	    }
	}
 
	MPI.Finalize();
    }
}