integer mpi_comm_world
      parameter (mpi_comm_world = 0)

      integer mpi_max, mpi_min, mpi_sum
      parameter (mpi_max = 1, mpi_sum = 2, mpi_min = 3)

      integer mpi_byte, mpi_integer, mpi_real,
     >                  mpi_real8,  mpi_complex,
     >                  mpi_double_complex
      parameter (mpi_real8 = 1,
     $           mpi_integer = 2, 
     $           mpi_byte = 3, 
     $           mpi_real= 4, 
     $           mpi_complex = 5,
     $           mpi_double_complex = 6)

      integer mpi_any_source
      parameter (mpi_any_source = -1)

      integer mpi_err_other
      parameter (mpi_err_other = -1)

      double precision mpi_wtime
      external mpi_wtime

      integer mpi_status_size
      parameter (mpi_status_size=3)

        integer mpi_request_null
        parameter (MPI_REQUEST_NULL     = 0)