c
c  Dummy parameters for MPI F77 stubs
c
      integer mpi_comm_world
      parameter ( mpi_comm_world = 0 )
c
c  Return values.
c
      integer mpi_failure
      parameter ( mpi_failure = 1 )
      integer mpi_success
      parameter ( mpi_success = 0 )
c
c  recv message status
c
      integer mpi_status_size
      parameter ( mpi_status_size = 3 )
      integer mpi_source
      parameter ( mpi_source = 1 )
      integer mpi_tag
      parameter ( mpi_tag = 2 )
      integer mpi_count
      parameter ( mpi_count = 3 )
c
c  recv flags
c
      integer mpi_any_source
      parameter ( mpi_any_source = -1 )
      integer mpi_any_tag
      parameter ( mpi_any_tag = -1 )
c
c  data types and sizes
c
      integer mpi_integer
      parameter ( mpi_integer = 1 )
      integer mpi_real
      parameter ( mpi_real = 2 )
      integer mpi_double_precision
      parameter ( mpi_double_precision = 3 )
      integer mpi_logical
      parameter ( mpi_logical = 4 )
      integer mpi_character
      parameter ( mpi_character = 5 )
c
c  allreduce operations
c
      integer mpi_sum
      parameter ( mpi_sum = 1 )
      integer mpi_max
      parameter ( mpi_max = 2 )
      integer mpi_min
      parameter ( mpi_min = 3 )
      integer mpi_product
      parameter ( mpi_product = 4 )
c
c  timer
c
      double precision mpi_wtime