C     
C     Open Systems Laboratory
C     http://www.lam-mpi.org/tutorials/
C     Indiana University
C     
C     MPI Tutorial
C     Lab 1: Hello world
C     
C     Mail questions regarding tutorial material to lam at lam dash mpi dot org
C
      program main
      include 'mpif.h'
      integer rank, size, ierr

      call MPI_INIT(ierr)

      call MPI_COMM_RANK(MPI_COMM_WORLD, rank, ierr)
      call MPI_COMM_SIZE(MPI_COMM_WORLD, size, ierr)

      print *, 'Hello world! I am ', rank , ' of ', size

      call MPI_FINALIZE(ierr)
      stop
      end