c  (C) 2008 by Argonne National Laboratory.

c      See COPYRIGHT in top-level directory.

      program main

      include 'mpif.h'

      integer ierr, myid, numprocs

      call MPI_INIT( ierr )

      call MPI_COMM_RANK( MPI_COMM_WORLD, myid, ierr )

      call MPI_COMM_SIZE( MPI_COMM_WORLD, numprocs, ierr )

      print *, "Process ", myid, " of ", numprocs, " is alive"

      call MPI_FINALIZE(rc)

      stop

      end