Actual source code: mpif.h
1: !
2: !
4: ! Trying to provide as little support for fortran code in petsc as needed
6: ! External objects outside of MPI calls
7: integer MPI_COMM_WORLD
8: parameter (MPI_COMM_WORLD = 1)
9: integer MPI_COMM_SELF
10: parameter (MPI_COMM_SELF = 2)
11: integer MPI_COMM_NULL
12: parameter (MPI_COMM_NULL = 0)
13: integer MPI_SUCCESS
14: parameter (MPI_SUCCESS = 0)
15: integer MPI_IDENT
16: parameter (MPI_IDENT = 0)
17: integer MPI_UNEQUAL
18: parameter (MPI_UNEQUAL = 3)
19: integer MPI_KEYVAL_INVALID
20: parameter (MPI_KEYVAL_INVALID = 0)
21: integer MPI_ERR_UNKNOWN
22: parameter (MPI_ERR_UNKNOWN = 18)
23: integer MPI_ERR_INTERN
24: parameter (MPI_ERR_INTERN = 21)
25: integer MPI_SUM
26: parameter (MPI_SUM=0)
27: integer MPI_STATUS_SIZE
28: parameter (MPI_STATUS_SIZE=4)
29: integer MPI_UNDEFINED
30: parameter (MPI_UNDEFINED=-32766)
32: INTEGER MPI_SOURCE,MPI_TAG,MPI_ERROR
33: PARAMETER(MPI_SOURCE=2,MPI_TAG=3,MPI_ERROR=4)
35:
36: ! Data Types. Same Values used in mpi.c
37: integer MPI_INTEGER,MPI_REAL,MPI_DOUBLE_PRECISION
38: integer MPI_COMPLEX, MPI_CHARACTER
40: parameter (MPI_INTEGER=0)
41: parameter (MPI_REAL=1)
42: parameter (MPI_DOUBLE_PRECISION=2)
43: parameter (MPI_COMPLEX=3)
44: parameter (MPI_CHARACTER=4)