1 ! /* -*- Mode: Fortran; -*- */
3 ! (C
) 2001 by Argonne National Laboratory
.
4 ! See COPYRIGHT in top
-level directory
.
7 ! This file created by buildiface
9 INTEGER MPI_SOURCE
, MPI_TAG
, MPI_ERROR
10 PARAMETER (MPI_SOURCE
=3,MPI_TAG
=4,MPI_ERROR
=5)
11 INTEGER MPI_STATUS_SIZE
12 PARAMETER (MPI_STATUS_SIZE
=5)
13 INTEGER
MPI_STATUS_IGNORE(MPI_STATUS_SIZE
)
14 INTEGER
MPI_STATUSES_IGNORE(MPI_STATUS_SIZE
,1)
15 INTEGER
MPI_ERRCODES_IGNORE(1)
16 CHARACTER
*1 MPI_ARGVS_NULL(1,1)
17 CHARACTER
*1 MPI_ARGV_NULL(1)
19 PARAMETER (MPI_SUCCESS
=0)
20 INTEGER MPI_ERR_IN_STATUS
21 PARAMETER (MPI_ERR_IN_STATUS
=17)
23 PARAMETER (MPI_ERR_GROUP
=8)
25 PARAMETER (MPI_ERR_COUNT
=2)
26 INTEGER MPI_ERR_LOCKTYPE
27 PARAMETER (MPI_ERR_LOCKTYPE
=47)
29 PARAMETER (MPI_ERR_BASE
=46)
31 PARAMETER (MPI_ERR_SIZE
=51)
32 INTEGER MPI_ERR_FILE_EXISTS
33 PARAMETER (MPI_ERR_FILE_EXISTS
=25)
35 PARAMETER (MPI_ERR_PORT
=38)
36 INTEGER MPI_ERR_ACCESS
37 PARAMETER (MPI_ERR_ACCESS
=20)
38 INTEGER MPI_ERR_READ_ONLY
39 PARAMETER (MPI_ERR_READ_ONLY
=40)
40 INTEGER MPI_ERR_INTERN
41 PARAMETER (MPI_ERR_INTERN
=16)
43 PARAMETER (MPI_ERR_OP
=9)
44 INTEGER MPI_ERR_INFO_KEY
45 PARAMETER (MPI_ERR_INFO_KEY
=29)
46 INTEGER MPI_ERR_UNSUPPORTED_OPERATION
47 PARAMETER (MPI_ERR_UNSUPPORTED_OPERATION
=44)
49 PARAMETER (MPI_ERR_ARG
=12)
50 INTEGER MPI_ERR_LASTCODE
51 PARAMETER (MPI_ERR_LASTCODE
=1073741823)
53 PARAMETER (MPI_ERR_AMODE
=21)
55 PARAMETER (MPI_ERR_ROOT
=7)
56 INTEGER MPI_ERR_UNKNOWN
57 PARAMETER (MPI_ERR_UNKNOWN
=13)
59 PARAMETER (MPI_ERR_FILE
=27)
61 PARAMETER (MPI_ERR_TAG
=4)
62 INTEGER MPI_ERR_CONVERSION
63 PARAMETER (MPI_ERR_CONVERSION
=23)
64 INTEGER MPI_ERR_NOT_SAME
65 PARAMETER (MPI_ERR_NOT_SAME
=35)
66 INTEGER MPI_ERR_NO_SPACE
67 PARAMETER (MPI_ERR_NO_SPACE
=36)
69 PARAMETER (MPI_ERR_IO
=32)
70 INTEGER MPI_ERR_DUP_DATAREP
71 PARAMETER (MPI_ERR_DUP_DATAREP
=24)
72 INTEGER MPI_ERR_BAD_FILE
73 PARAMETER (MPI_ERR_BAD_FILE
=22)
74 INTEGER MPI_ERR_FILE_IN_USE
75 PARAMETER (MPI_ERR_FILE_IN_USE
=26)
77 PARAMETER (MPI_ERR_NAME
=33)
78 INTEGER MPI_ERR_TRUNCATE
79 PARAMETER (MPI_ERR_TRUNCATE
=14)
81 PARAMETER (MPI_ERR_COMM
=5)
82 INTEGER MPI_ERR_RMA_SYNC
83 PARAMETER (MPI_ERR_RMA_SYNC
=50)
84 INTEGER MPI_ERR_INFO_VALUE
85 PARAMETER (MPI_ERR_INFO_VALUE
=30)
87 PARAMETER (MPI_ERR_SPAWN
=42)
88 INTEGER MPI_ERR_PENDING
89 PARAMETER (MPI_ERR_PENDING
=18)
91 PARAMETER (MPI_ERR_WIN
=45)
92 INTEGER MPI_ERR_ASSERT
93 PARAMETER (MPI_ERR_ASSERT
=53)
94 INTEGER MPI_ERR_NO_SUCH_FILE
95 PARAMETER (MPI_ERR_NO_SUCH_FILE
=37)
96 INTEGER MPI_ERR_KEYVAL
97 PARAMETER (MPI_ERR_KEYVAL
=48)
98 INTEGER MPI_ERR_INFO_NOKEY
99 PARAMETER (MPI_ERR_INFO_NOKEY
=31)
101 PARAMETER (MPI_ERR_RANK
=6)
102 INTEGER MPI_ERR_NO_MEM
103 PARAMETER (MPI_ERR_NO_MEM
=34)
104 INTEGER MPI_ERR_BUFFER
105 PARAMETER (MPI_ERR_BUFFER
=1)
107 PARAMETER (MPI_ERR_DISP
=52)
109 PARAMETER (MPI_ERR_TYPE
=3)
111 PARAMETER (MPI_ERR_INFO
=28)
112 INTEGER MPI_ERR_QUOTA
113 PARAMETER (MPI_ERR_QUOTA
=39)
114 INTEGER MPI_ERR_RMA_CONFLICT
115 PARAMETER (MPI_ERR_RMA_CONFLICT
=49)
116 INTEGER MPI_ERR_REQUEST
117 PARAMETER (MPI_ERR_REQUEST
=19)
118 INTEGER MPI_ERR_OTHER
119 PARAMETER (MPI_ERR_OTHER
=15)
120 INTEGER MPI_ERR_SERVICE
121 PARAMETER (MPI_ERR_SERVICE
=41)
122 INTEGER MPI_ERR_UNSUPPORTED_DATAREP
123 PARAMETER (MPI_ERR_UNSUPPORTED_DATAREP
=43)
124 INTEGER MPI_ERR_TOPOLOGY
125 PARAMETER (MPI_ERR_TOPOLOGY
=10)
127 PARAMETER (MPI_ERR_DIMS
=11)
128 INTEGER MPI_ERRORS_ARE_FATAL
129 PARAMETER (MPI_ERRORS_ARE_FATAL
=1409286144)
130 INTEGER MPI_ERRORS_RETURN
131 PARAMETER (MPI_ERRORS_RETURN
=1409286145)
133 PARAMETER (MPI_IDENT
=0)
134 INTEGER MPI_CONGRUENT
135 PARAMETER (MPI_CONGRUENT
=1)
137 PARAMETER (MPI_SIMILAR
=2)
139 PARAMETER (MPI_UNEQUAL
=3)
141 PARAMETER (MPI_MAX
=1476395009)
143 PARAMETER (MPI_MIN
=1476395010)
145 PARAMETER (MPI_SUM
=1476395011)
147 PARAMETER (MPI_PROD
=1476395012)
149 PARAMETER (MPI_LAND
=1476395013)
151 PARAMETER (MPI_BAND
=1476395014)
153 PARAMETER (MPI_LOR
=1476395015)
155 PARAMETER (MPI_BOR
=1476395016)
157 PARAMETER (MPI_LXOR
=1476395017)
159 PARAMETER (MPI_BXOR
=1476395018)
161 PARAMETER (MPI_MINLOC
=1476395019)
163 PARAMETER (MPI_MAXLOC
=1476395020)
165 PARAMETER (MPI_REPLACE
=1476395021)
166 INTEGER MPI_COMM_WORLD
167 PARAMETER (MPI_COMM_WORLD
=1140850688)
168 INTEGER MPI_COMM_SELF
169 PARAMETER (MPI_COMM_SELF
=1140850689)
170 INTEGER MPI_GROUP_EMPTY
171 PARAMETER (MPI_GROUP_EMPTY
=1207959552)
172 INTEGER MPI_COMM_NULL
173 PARAMETER (MPI_COMM_NULL
=67108864)
175 PARAMETER (MPI_WIN_NULL
=536870912)
176 INTEGER MPI_FILE_NULL
177 PARAMETER (MPI_FILE_NULL
=0)
178 INTEGER MPI_GROUP_NULL
179 PARAMETER (MPI_GROUP_NULL
=134217728)
181 PARAMETER (MPI_OP_NULL
=402653184)
182 INTEGER MPI_DATATYPE_NULL
183 PARAMETER (MPI_DATATYPE_NULL
=201326592)
184 INTEGER MPI_REQUEST_NULL
185 PARAMETER (MPI_REQUEST_NULL
=738197504)
186 INTEGER MPI_ERRHANDLER_NULL
187 PARAMETER (MPI_ERRHANDLER_NULL
=335544320)
188 INTEGER MPI_INFO_NULL
189 PARAMETER (MPI_INFO_NULL
=469762048)
191 PARAMETER (MPI_TAG_UB
=1681915906)
193 PARAMETER (MPI_HOST
=1681915908)
195 PARAMETER (MPI_IO
=1681915910)
196 INTEGER MPI_WTIME_IS_GLOBAL
197 PARAMETER (MPI_WTIME_IS_GLOBAL
=1681915912)
198 INTEGER MPI_UNIVERSE_SIZE
199 PARAMETER (MPI_UNIVERSE_SIZE
=1681915914)
200 INTEGER MPI_LASTUSEDCODE
201 PARAMETER (MPI_LASTUSEDCODE
=1681915916)
203 PARAMETER (MPI_APPNUM
=1681915918)
205 PARAMETER (MPI_WIN_BASE
=1711276034)
207 PARAMETER (MPI_WIN_SIZE
=1711276036)
208 INTEGER MPI_WIN_DISP_UNIT
209 PARAMETER (MPI_WIN_DISP_UNIT
=1711276038)
210 INTEGER MPI_MAX_ERROR_STRING
211 PARAMETER (MPI_MAX_ERROR_STRING
=511)
212 INTEGER MPI_MAX_NAME_STRING
213 PARAMETER (MPI_MAX_NAME_STRING
=62)
214 INTEGER MPI_MAX_PORT_NAME
215 PARAMETER (MPI_MAX_PORT_NAME
=255)
216 INTEGER MPI_MAX_OBJECT_NAME
217 PARAMETER (MPI_MAX_OBJECT_NAME
=127)
218 INTEGER MPI_MAX_INFO_KEY
219 PARAMETER (MPI_MAX_INFO_KEY
=254)
220 INTEGER MPI_MAX_INFO_VAL
221 PARAMETER (MPI_MAX_INFO_VAL
=1023)
222 INTEGER MPI_MAX_PROCESSOR_NAME
223 PARAMETER (MPI_MAX_PROCESSOR_NAME
=128-1)
224 INTEGER MPI_MAX_DATAREP_STRING
225 PARAMETER (MPI_MAX_DATAREP_STRING
=127)
226 INTEGER MPI_UNDEFINED
, MPI_UNDEFINED_RANK
227 PARAMETER (MPI_UNDEFINED
=(-32766))
228 PARAMETER (MPI_UNDEFINED_RANK
=(-32766))
229 INTEGER MPI_KEYVAL_INVALID
230 PARAMETER (MPI_KEYVAL_INVALID
=603979776)
231 INTEGER MPI_BSEND_OVERHEAD
232 PARAMETER (MPI_BSEND_OVERHEAD
=(95))
233 INTEGER MPI_PROC_NULL
234 PARAMETER (MPI_PROC_NULL
=-1)
235 INTEGER MPI_ANY_SOURCE
236 PARAMETER (MPI_ANY_SOURCE
=-2)
238 PARAMETER (MPI_ANY_TAG
=-1)
240 PARAMETER (MPI_ROOT
=-3)
242 PARAMETER (MPI_GRAPH
=1)
244 PARAMETER (MPI_CART
=2)
246 PARAMETER (MPI_VERSION
=2)
247 INTEGER MPI_SUBVERSION
248 PARAMETER (MPI_SUBVERSION
=0)
249 INTEGER MPI_LOCK_EXCLUSIVE
250 PARAMETER (MPI_LOCK_EXCLUSIVE
=234)
251 INTEGER MPI_LOCK_SHARED
252 PARAMETER (MPI_LOCK_SHARED
=235)
254 PARAMETER (MPI_COMPLEX
=1275070494)
255 INTEGER MPI_DOUBLE_COMPLEX
256 PARAMETER (MPI_DOUBLE_COMPLEX
=1275072546)
258 PARAMETER (MPI_LOGICAL
=1275069469)
260 PARAMETER (MPI_REAL
=1275069468)
261 INTEGER MPI_DOUBLE_PRECISION
262 PARAMETER (MPI_DOUBLE_PRECISION
=1275070495)
264 PARAMETER (MPI_INTEGER
=1275069467)
266 PARAMETER (MPI_2INTEGER
=1275070496)
268 PARAMETER (MPI_2COMPLEX
=1275072548)
269 INTEGER MPI_2DOUBLE_PRECISION
270 PARAMETER (MPI_2DOUBLE_PRECISION
=1275072547)
272 PARAMETER (MPI_2REAL
=1275070497)
273 INTEGER MPI_2DOUBLE_COMPLEX
274 PARAMETER (MPI_2DOUBLE_COMPLEX
=1275076645)
275 INTEGER MPI_CHARACTER
276 PARAMETER (MPI_CHARACTER
=1275068698)
278 PARAMETER (MPI_BYTE
=1275068685)
280 PARAMETER (MPI_UB
=1275068433)
282 PARAMETER (MPI_LB
=1275068432)
284 PARAMETER (MPI_PACKED
=1275068687)
286 PARAMETER (MPI_INTEGER1
=1275068717)
288 PARAMETER (MPI_INTEGER2
=1275068975)
290 PARAMETER (MPI_INTEGER4
=1275069488)
292 PARAMETER (MPI_INTEGER8
=1275070513)
293 INTEGER MPI_INTEGER16
294 PARAMETER (MPI_INTEGER16
=1275072562)
296 PARAMETER (MPI_REAL4
=1275069479)
298 PARAMETER (MPI_REAL8
=1275070505)
300 PARAMETER (MPI_REAL16
=1275072555)
302 PARAMETER (MPI_COMPLEX8
=1275070504)
303 INTEGER MPI_COMPLEX16
304 PARAMETER (MPI_COMPLEX16
=1275072554)
305 INTEGER MPI_COMPLEX32
306 PARAMETER (MPI_COMPLEX32
=1275076652)
307 INTEGER MPI_ADDRESS_KIND
308 !DEC$ IF
DEFINED (_WIN64
)
309 PARAMETER (MPI_ADDRESS_KIND
=8)
312 INTEGER MPI_OFFSET_KIND
313 PARAMETER (MPI_OFFSET_KIND
=8)
314 INTEGER MPI_COMBINER_NAMED
315 PARAMETER (MPI_COMBINER_NAMED
=1)
316 INTEGER MPI_COMBINER_DUP
317 PARAMETER (MPI_COMBINER_DUP
=2)
318 INTEGER MPI_COMBINER_CONTIGUOUS
319 PARAMETER (MPI_COMBINER_CONTIGUOUS
=3)
320 INTEGER MPI_COMBINER_VECTOR
321 PARAMETER (MPI_COMBINER_VECTOR
=4)
322 INTEGER MPI_COMBINER_HVECTOR_INTEGER
323 PARAMETER (MPI_COMBINER_HVECTOR_INTEGER
=5)
324 INTEGER MPI_COMBINER_HVECTOR
325 PARAMETER (MPI_COMBINER_HVECTOR
=6)
326 INTEGER MPI_COMBINER_INDEXED
327 PARAMETER (MPI_COMBINER_INDEXED
=7)
328 INTEGER MPI_COMBINER_HINDEXED_INTEGER
329 PARAMETER (MPI_COMBINER_HINDEXED_INTEGER
=8)
330 INTEGER MPI_COMBINER_HINDEXED
331 PARAMETER (MPI_COMBINER_HINDEXED
=9)
332 INTEGER MPI_COMBINER_INDEXED_BLOCK
333 PARAMETER (MPI_COMBINER_INDEXED_BLOCK
=10)
334 INTEGER MPI_COMBINER_STRUCT_INTEGER
335 PARAMETER (MPI_COMBINER_STRUCT_INTEGER
=11)
336 INTEGER MPI_COMBINER_STRUCT
337 PARAMETER (MPI_COMBINER_STRUCT
=12)
338 INTEGER MPI_COMBINER_SUBARRAY
339 PARAMETER (MPI_COMBINER_SUBARRAY
=13)
340 INTEGER MPI_COMBINER_DARRAY
341 PARAMETER (MPI_COMBINER_DARRAY
=14)
342 INTEGER MPI_COMBINER_F90_REAL
343 PARAMETER (MPI_COMBINER_F90_REAL
=15)
344 INTEGER MPI_COMBINER_F90_COMPLEX
345 PARAMETER (MPI_COMBINER_F90_COMPLEX
=16)
346 INTEGER MPI_COMBINER_F90_INTEGER
347 PARAMETER (MPI_COMBINER_F90_INTEGER
=17)
348 INTEGER MPI_COMBINER_RESIZED
349 PARAMETER (MPI_COMBINER_RESIZED
=18)
350 INTEGER MPI_MODE_NOCHECK
351 PARAMETER (MPI_MODE_NOCHECK
=1024)
352 INTEGER MPI_MODE_NOSTORE
353 PARAMETER (MPI_MODE_NOSTORE
=2048)
354 INTEGER MPI_MODE_NOPUT
355 PARAMETER (MPI_MODE_NOPUT
=4096)
356 INTEGER MPI_MODE_NOPRECEDE
357 PARAMETER (MPI_MODE_NOPRECEDE
=8192)
358 INTEGER MPI_MODE_NOSUCCEED
359 PARAMETER (MPI_MODE_NOSUCCEED
=16384)
360 INTEGER MPI_THREAD_SINGLE
361 PARAMETER (MPI_THREAD_SINGLE
=0)
362 INTEGER MPI_THREAD_FUNNELED
363 PARAMETER (MPI_THREAD_FUNNELED
=1)
364 INTEGER MPI_THREAD_SERIALIZED
365 PARAMETER (MPI_THREAD_SERIALIZED
=2)
366 INTEGER MPI_THREAD_MULTIPLE
367 PARAMETER (MPI_THREAD_MULTIPLE
=3)
368 INTEGER MPI_MODE_RDONLY
369 PARAMETER (MPI_MODE_RDONLY
=2)
370 INTEGER MPI_MODE_RDWR
371 PARAMETER (MPI_MODE_RDWR
=8)
372 INTEGER MPI_MODE_WRONLY
373 PARAMETER (MPI_MODE_WRONLY
=4)
374 INTEGER MPI_MODE_DELETE_ON_CLOSE
375 PARAMETER (MPI_MODE_DELETE_ON_CLOSE
=16)
376 INTEGER MPI_MODE_UNIQUE_OPEN
377 PARAMETER (MPI_MODE_UNIQUE_OPEN
=32)
378 INTEGER MPI_MODE_CREATE
379 PARAMETER (MPI_MODE_CREATE
=1)
380 INTEGER MPI_MODE_EXCL
381 PARAMETER (MPI_MODE_EXCL
=64)
382 INTEGER MPI_MODE_APPEND
383 PARAMETER (MPI_MODE_APPEND
=128)
384 INTEGER MPI_MODE_SEQUENTIAL
385 PARAMETER (MPI_MODE_SEQUENTIAL
=256)
387 PARAMETER (MPI_SEEK_SET
=600)
389 PARAMETER (MPI_SEEK_CUR
=602)
391 PARAMETER (MPI_SEEK_END
=604)
393 PARAMETER (MPI_ORDER_C
=56)
394 INTEGER MPI_ORDER_FORTRAN
395 PARAMETER (MPI_ORDER_FORTRAN
=57)
396 INTEGER MPI_DISTRIBUTE_BLOCK
397 PARAMETER (MPI_DISTRIBUTE_BLOCK
=121)
398 INTEGER MPI_DISTRIBUTE_CYCLIC
399 PARAMETER (MPI_DISTRIBUTE_CYCLIC
=122)
400 INTEGER MPI_DISTRIBUTE_NONE
401 PARAMETER (MPI_DISTRIBUTE_NONE
=123)
402 INTEGER MPI_DISTRIBUTE_DFLT_DARG
403 PARAMETER (MPI_DISTRIBUTE_DFLT_DARG
=-49767)
404 INTEGER MPI_DISPLACEMENT_CURRENT
405 PARAMETER (MPI_DISPLACEMENT_CURRENT
=-54278278)
406 INTEGER MPI_BOTTOM
, MPI_IN_PLACE
407 EXTERNAL MPI_DUP_FN
, MPI_NULL_DELETE_FN
, MPI_NULL_COPY_FN
408 EXTERNAL MPI_WTIME
, MPI_WTICK
409 EXTERNAL PMPI_WTIME
, PMPI_WTICK
410 EXTERNAL MPI_COMM_DUP_FN
, MPI_COMM_NULL_DELETE_FN
411 EXTERNAL MPI_COMM_NULL_COPY_FN
412 EXTERNAL MPI_WIN_DUP_FN
, MPI_WIN_NULL_DELETE_FN
413 EXTERNAL MPI_WIN_NULL_COPY_FN
414 EXTERNAL MPI_TYPE_DUP_FN
, MPI_TYPE_NULL_DELETE_FN
415 EXTERNAL MPI_TYPE_NULL_COPY_FN
416 EXTERNAL MPI_CONVERSION_FN_NULL
417 DOUBLE PRECISION MPI_WTIME
, MPI_WTICK
418 DOUBLE PRECISION PMPI_WTIME
, PMPI_WTICK
421 COMMON
/MPIPRIV1
/ MPI_BOTTOM
, MPI_IN_PLACE
, MPI_STATUS_IGNORE
423 COMMON
/MPIPRIV2
/ MPI_STATUSES_IGNORE
, MPI_ERRCODES_IGNORE
424 SAVE
/MPIPRIV1
/,/MPIPRIV2
/
426 COMMON
/MPIPRIVC
/ MPI_ARGVS_NULL
, MPI_ARGV_NULL