Actual source code: mpif.h
petsc-3.7.7 2017-09-25
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 = 2)
9: integer MPI_COMM_SELF
10: parameter (MPI_COMM_SELF = 1)
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_MAX
28: parameter (MPI_MAX=0)
29: integer MPI_MIN
30: parameter (MPI_MIN=0)
32: integer MPI_PACKED
33: parameter (MPI_PACKED=0)
34: integer MPI_ANY_SOURCE
35: parameter (MPI_ANY_SOURCE=0)
36: integer MPI_ANY_TAG
37: parameter (MPI_ANY_TAG=0)
38: integer MPI_STATUS_SIZE
39: parameter (MPI_STATUS_SIZE=4)
40: integer MPI_UNDEFINED
41: parameter (MPI_UNDEFINED=-32766)
42: INTEGER MPI_INFO_NULL
43: PARAMETER (MPI_INFO_NULL=469762048)
46: integer MPI_REQUEST_NULL
47: parameter (MPI_REQUEST_NULL=0)
49: INTEGER MPI_SOURCE,MPI_TAG,MPI_ERROR
50: PARAMETER(MPI_SOURCE=2,MPI_TAG=3,MPI_ERROR=4)
53: ! Data Types. Same Values used in mpi.c
54: integer MPI_INTEGER,MPI_LOGICAL
55: integer MPI_REAL,MPI_DOUBLE_PRECISION
56: integer MPI_COMPLEX, MPI_CHARACTER
57: integer MPI_2INTEGER
58: integer MPI_DOUBLE_COMPLEX
59: integer MPI_INTEGER4
60: integer MPI_INTEGER8
61: integer MPI_2DOUBLE_PRECISION
62: integer MPI_REAL4,MPI_REAL8
64: !
65: ! These should match the values in mpi.h many below are wrong
66: !
67: parameter (MPI_INTEGER=262148)
68: parameter (MPI_LOGICAL=262148)
69: parameter (MPI_REAL=65540)
70: parameter (MPI_REAL4=65540)
71: parameter (MPI_DOUBLE_PRECISION=65544)
72: parameter (MPI_REAL8=65544)
73: parameter (MPI_COMPLEX=131088)
74: parameter (MPI_CHARACTER=196609)
75: parameter (MPI_2INTEGER=5)
76: parameter (MPI_DOUBLE_COMPLEX=6)
77: parameter (MPI_INTEGER4=7)
78: parameter (MPI_INTEGER8=8)
79: parameter (MPI_2DOUBLE_PRECISION=9)
81: integer MPI_MAXLOC,MPI_MINLOC
82: parameter (MPI_MAXLOC=5)
83: parameter (MPI_MINLOC=6)
85: integer MPI_MAX_PROCESSOR_NAME
86: parameter (MPI_MAX_PROCESSOR_NAME=128-1)
88: !
89: ! some parameters require common blocks?
90: !
91: integer MPI_IN_PLACE
92: common /MPIUNIPRIV/ MPI_IN_PLACE
93: save /MPIUNIPRIV/