source: CPL/oasis3-mct/branches/OASIS3-MCT_2.0_branch/lib/mct/mpi-serial/mpif.master.h @ 4775

Last change on this file since 4775 was 4775, checked in by aclsce, 4 years ago
  • Imported oasis3-mct from Cerfacs svn server (not suppotred anymore).

The version has been extracted from https://oasis3mct.cerfacs.fr/svn/branches/OASIS3-MCT_2.0_branch/oasis3-mct@1818

File size: 5.0 KB
Line 
1
2!!!
3!!!   NOTE: The files mpif.realXdoubleY.h are generated from
4!!!   mpif.master.h using make-mpif and later copied to mpif.h
5!!!   during the library make.  All modifications should be
6!!!   made to mpif.master.h
7!!!
8
9
10!
11! MPI_COMM_WORLD
12!
13
14        INTEGER MPI_COMM_WORLD
15        parameter (mpi_comm_world=1)
16
17!
18!
19!
20
21        integer MPI_BOTTOM
22        parameter (MPI_BOTTOM=0)
23
24
25!
26! source,tag
27!
28
29        integer MPI_ANY_SOURCE, MPI_ANY_TAG
30        parameter (mpi_any_source=-1, mpi_any_tag= -1)
31
32        integer MPI_PROC_NULL, MPI_ROOT
33        parameter (MPI_PROC_NULL=-2, MPI_ROOT=-3)
34
35        integer MPI_COMM_NULL, MPI_REQUEST_NULL
36        parameter (MPI_COMM_NULL=0, MPI_REQUEST_NULL=0)
37
38        integer MPI_GROUP_NULL, MPI_GROUP_EMPTY
39        parameter (MPI_GROUP_NULL=0, MPI_GROUP_EMPTY= -1)
40
41        integer MPI_MAX_ERROR_STRING
42        parameter (MPI_MAX_ERROR_STRING=128)
43
44        integer MPI_MAX_PROCESSOR_NAME
45        parameter (MPI_MAX_PROCESSOR_NAME=128)
46
47!
48! Return codes
49!
50
51        integer MPI_SUCCESS
52        parameter (MPI_SUCCESS=0)
53
54        integer MPI_ERR_BUFFER
55        parameter (MPI_ERR_BUFFER= -1)
56
57        integer MPI_ERR_COUNT
58        parameter (MPI_ERR_COUNT= -1)
59
60        integer MPI_ERR_TYPE
61        parameter (MPI_ERR_TYPE= -1)
62
63        integer MPI_ERR_TAG
64        parameter (MPI_ERR_TAG= -1)
65
66        integer MPI_ERR_COMM
67        parameter (MPI_ERR_COMM= -1)
68
69        integer MPI_ERR_RANK
70        parameter (MPI_ERR_RANK= -1)
71
72        integer MPI_ERR_REQUEST
73        parameter (MPI_ERR_REQUEST= -1)
74
75        integer MPI_ERR_ROOT
76        parameter (MPI_ERR_ROOT= -1)
77
78        integer MPI_ERR_GROUP
79        parameter (MPI_ERR_GROUP= -1)
80
81        integer MPI_ERR_OP
82        parameter (MPI_ERR_OP= -1)
83
84        integer MPI_ERR_TOPOLOGY
85        parameter (MPI_ERR_TOPOLOGY= -1)
86
87        integer MPI_ERR_DIMS
88        parameter (MPI_ERR_DIMS= -1)
89
90        integer MPI_ERR_ARG
91        parameter (MPI_ERR_ARG= -1)
92
93        integer MPI_ERR_UNKNOWN
94        parameter (MPI_ERR_UNKNOWN= -1)
95
96        integer MPI_ERR_TRUNCATE
97        parameter (MPI_ERR_TRUNCATE= -1)
98
99        integer MPI_ERR_OTHER
100        parameter (MPI_ERR_OTHER= -1)
101
102        integer MPI_ERR_INTERN
103        parameter (MPI_ERR_INTERN= -1)
104
105        integer MPI_PENDING
106        parameter (MPI_PENDING= -1)
107
108        integer MPI_ERR_IN_STATUS
109        parameter (MPI_ERR_IN_STATUS= -1)
110
111        integer MPI_ERR_LASTCODE
112        parameter (MPI_ERR_LASTCODE= -1)
113
114!
115!
116
117
118        integer MPI_UNDEFINED
119        parameter (MPI_UNDEFINED= -1)
120
121
122!
123! MPI_Status
124!
125! The values in this section MUST match the struct definition
126! in mpi.h
127!
128
129
130        INTEGER MPI_STATUS_SIZE
131        PARAMETER (MPI_STATUS_SIZE=3)
132
133        INTEGER MPI_SOURCE, MPI_TAG, MPI_ERROR
134        PARAMETER(MPI_SOURCE=1, MPI_TAG=2, MPI_ERROR=3)
135
136
137
138!
139! MPI_Datatype values
140! 
141! The value is the size of the datatype in bytes.
142! Change if necessary for the machine in question.
143! (The mpi.h file uses sizeof(), so it should be more
144! portable).
145! 
146!
147
148
149        INTEGER MPI_DATATYPE_NULL
150        PARAMETER (MPI_DATATYPE_NULL=0)
151
152        INTEGER MPI_BYTE
153        PARAMETER (MPI_BYTE=1)
154
155        INTEGER MPI_CHARACTER
156        PARAMETER (MPI_CHARACTER=1)
157
158        INTEGER MPI_INTEGER
159        PARAMETER (MPI_INTEGER=4)
160
161        INTEGER MPI_LOGICAL
162        PARAMETER (MPI_LOGICAL=4)
163
164!!!!!!!
165        INTEGER MPI_REAL
166        PARAMETER (MPI_REAL=_RSIZE_)
167
168        INTEGER MPI_DOUBLE_PRECISION
169        PARAMETER (MPI_DOUBLE_PRECISION=_DSIZE_)
170!!!!!!!
171
172        integer MPI_COMPLEX
173        parameter (MPI_COMPLEX=2*MPI_REAL)
174
175        integer MPI_2REAL
176        parameter (MPI_2REAL=2*MPI_REAL)
177
178        integer MPI_2DOUBLE_PRECISION
179        parameter (MPI_2DOUBLE_PRECISION=2*MPI_DOUBLE_PRECISION)
180
181        integer MPI_2INTEGER
182        parameter (MPI_2INTEGER=2*MPI_INTEGER)
183
184        integer MPI_PACKED
185        parameter (MPI_PACKED=1)
186
187
188!
189! Size-specific types
190!
191
192        INTEGER MPI_REAL4
193        PARAMETER (MPI_REAL4=4)
194
195        INTEGER MPI_REAL8
196        PARAMETER (MPI_REAL8=8)
197
198        INTEGER MPI_REAL16
199        PARAMETER (MPI_REAL16=16)
200
201
202        integer MPI_COMPLEX8
203        parameter (MPI_COMPLEX8=8)
204
205        integer MPI_COMPLEX16
206        parameter (MPI_COMPLEX16=16)
207
208        integer MPI_COMPLEX32
209        parameter (MPI_COMPLEX32=32)
210
211
212        INTEGER MPI_INTEGER1
213        PARAMETER (MPI_INTEGER1=1)
214
215        INTEGER MPI_INTEGER2
216        PARAMETER (MPI_INTEGER2=2)
217
218        INTEGER MPI_INTEGER4
219        PARAMETER (MPI_INTEGER4=4)
220
221        INTEGER MPI_INTEGER8
222        PARAMETER (MPI_INTEGER8=8)
223
224        INTEGER MPI_INTEGER16
225        PARAMETER (MPI_INTEGER16=16)
226
227
228       
229!
230! MPI_Op values
231!
232! (All are handled as no-op so no value is necessary)
233!
234
235        INTEGER MPI_SUM, MPI_MAX, MPI_MIN, MPI_PROD, MPI_LAND, MPI_BAND
236        INTEGER MPI_LOR, MPI_BOR, MPI_LXOR, MPI_BXOR, MPI_MINLOC
237        INTEGER MPI_MAXLOC
238        INTEGER MPI_OP_NULL
239
240!
241! MPI_Wtime
242!
243
244        DOUBLE PRECISION MPI_WTIME
245        EXTERNAL MPI_WTIME
246
247
248!
249! Kinds
250!
251
252        INTEGER MPI_OFFSET_KIND
253        PARAMETER (MPI_OFFSET_KIND=selected_int_kind(13))
254
255        INTEGER MPI_INFO_NULL
256        PARAMETER (MPI_INFO_NULL=0)
257
258        INTEGER MPI_MODE_RDONLY
259        PARAMETER (MPI_MODE_RDONLY=0)
260
261        INTEGER MPI_MODE_CREATE
262        PARAMETER (MPI_MODE_CREATE=1)
263
264        INTEGER MPI_MODE_RDWR
265        PARAMETER (MPI_MODE_RDWR=2)
266
267
268
Note: See TracBrowser for help on using the repository browser.