/**********************************************************************
c
c A simple "hello world" program for MPI/F
c
c**********************************************************************/

        program main 
        include 'mpif.h'
C
C    Initialize environment
C
        call mpi_init(ierr)
        call mpi_comm_rank(MPI_COMM_WORLD, whoami, ierr)
        call mpi_comm_size(MPI_COMM_WORLD, npes, ierr)
		
        write(*,*) 'Hello World! (from ',whoami,')'

        call mpi_finalize(ierr)
        END