include 'mpif.h'
      
      integer ierr
      integer status(MPI_STATUS_SIZE)    
      integer my_rank
      integer p
      integer source
      integer dest
      integer tag 
      integer size
      integer tmp
      integer number=1
      
      call MPI_Init(ierr) 
     
      call MPI_Comm_rank(MPI_COMM_WORLD, my_rank, ierr)
      
      call MPI_Comm_size(MPI_COMM_WORLD, p, ierr)

      IF( my_rank.ne.0 ) THEN
         call MPI_Send(my_rank,1,MPI_INTEGER,
     +                         dest,tag,MPI_COMM_WORLD,ierr)
      ENDIF
      
      IF( my_rank.eq.0 ) THEN
        DO 10 source=1,p-1
	  call MPI_Recv(tmp, 1, MPI_INTEGER, source,
     +                     tag, MPI_COMM_WORLD, status, ierr)	
          WRITE(6,*)'Hello World from ',tmp
 10     CONTINUE  
        
      ENDIF	
      
      call MPI_Finalize(ierr)
      END