program mpihello
      include 'mpif.h'
      integer ierr, numprocs, myrank 
      call mpi_init(ierr)
      call mpi_comm_size(MPI_COMM_WORLD, numprocs, ierr)
      call mpi_comm_rank(MPI_COMM_WORLD, myrank, ierr)
      print *, "Hello world!  I'm node", myrank, " of " ,numprocs, " allocated nodes. "
      call mpi_finalize(ierr)
      end