Actual source code: mpif.h
1: !
2: ! $Id: mpif.h,v 1.13 2000/05/26 13:59:56 balay Exp $
3: !
5: ! Trying to provide as little support for fortran code in petsc as needed
7: ! External objects outside of MPI calls
8: integer MPI_COMM_WORLD
9: parameter (MPI_COMM_WORLD = 1)
10: integer MPI_COMM_SELF
11: parameter (MPI_COMM_SELF = 2)
12: integer MPI_COMM_NULL
13: parameter (MPI_COMM_NULL = 0)
14: integer MPI_SUCCESS
15: parameter (MPI_SUCCESS = 0)
16: integer MPI_IDENT
17: parameter (MPI_IDENT = 0)
18: integer MPI_UNEQUAL
19: parameter (MPI_UNEQUAL = 3)
20: integer MPI_KEYVAL_INVALID
21: parameter (MPI_KEYVAL_INVALID = 0)
22: integer MPI_ERR_UNKNOWN
23: parameter (MPI_ERR_UNKNOWN = 18)
24: integer MPI_ERR_INTERN
25: parameter (MPI_ERR_INTERN = 21)
26: integer MPI_SUM
27: parameter (MPI_SUM=0)
29: INTEGER MPI_SOURCE,MPI_TAG,MPI_ERROR
30: PARAMETER(MPI_SOURCE=2,MPI_TAG=3,MPI_ERROR=4)
32:
33: ! Data Types. Same Values used in mpi.c
34: integer MPI_INTEGER,MPI_REAL,MPI_DOUBLE_PRECISION
35: integer MPI_COMPLEX, MPI_CHARACTER
37: parameter (MPI_INTEGER=0)
38: parameter (MPI_REAL=1)
39: parameter (MPI_DOUBLE_PRECISION=2)
40: parameter (MPI_COMPLEX=3)
41: parameter (MPI_CHARACTER=4)