2 parameter (mpi_comm_world = 0)
4 integer mpi_max, mpi_min, mpi_sum
5 parameter (mpi_max = 1, mpi_sum = 2, mpi_min = 3)
7 integer mpi_byte, mpi_integer, mpi_real,
8 > mpi_double_precision, mpi_complex,
10 parameter (mpi_double_precision = 1,
15 $ mpi_double_complex = 6)
17 integer mpi_any_source
18 parameter (mpi_any_source = -1)
21 parameter (mpi_err_other = -1)
23 double precision mpi_wtime
26 integer mpi_status_size
27 parameter (mpi_status_size=3)