1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
|
! -*- fortran -*-
! Copyright (c) 2010-2025. The SimGrid Team. All rights reserved.
! This program is free software; you can redistribute it and/or modify it
! under the terms of the license (GNU LGPL) which comes with this package.
! SMPI's Fortran 77 include file
@MODULE_MPIF_IN@
integer MPI_THREAD_SINGLE, MPI_THREAD_FUNNELED
integer MPI_THREAD_SERIALIZED, MPI_THREAD_MULTIPLE
parameter(MPI_THREAD_SINGLE=0)
parameter(MPI_THREAD_FUNNELED=1)
parameter(MPI_THREAD_SERIALIZED=2)
parameter(MPI_THREAD_MULTIPLE=3)
integer MPI_MAX_PROCESSOR_NAME, MPI_MAX_ERROR_STRING
integer MPI_MAX_DATAREP_STRING, MPI_MAX_INFO_KEY
integer MPI_MAX_INFO_VAL, MPI_MAX_OBJECT_NAME, MPI_MAX_PORT_NAME
integer MPI_ANY_SOURCE, MPI_PROC_NULL, MPI_ANY_TAG, MPI_UNDEFINED
integer MPI_SOURCE, MPI_TAG, MPI_ERROR
integer MPI_VERSION, MPI_SUBVERSION
integer MPI_LOCK_EXCLUSIVE, MPI_LOCK_SHARED
parameter(MPI_MAX_PROCESSOR_NAME=100)
parameter(MPI_MAX_ERROR_STRING=100)
parameter(MPI_MAX_DATAREP_STRING=128)
parameter(MPI_MAX_INFO_KEY=100)
parameter(MPI_MAX_INFO_VAL=100)
parameter(MPI_MAX_OBJECT_NAME=100)
parameter(MPI_MAX_PORT_NAME=100)
parameter(MPI_ANY_SOURCE=-555)
parameter(MPI_PROC_NULL=-666)
parameter(MPI_ANY_TAG=-444)
parameter(MPI_UNDEFINED=-333)
parameter(MPI_SOURCE=1)
parameter(MPI_TAG=2)
parameter(MPI_ERROR=3)
parameter(MPI_VERSION=3)
parameter(MPI_SUBVERSION=1)
parameter(MPI_LOCK_EXCLUSIVE=1)
parameter(MPI_LOCK_SHARED=2)
integer MPI_MODE_NOSTORE, MPI_MODE_NOPUT, MPI_MODE_NOPRECEDE
integer MPI_MODE_NOSUCCEED, MPI_MODE_NOCHECK
parameter(MPI_MODE_NOSTORE=1)
parameter(MPI_MODE_NOPUT=2)
parameter(MPI_MODE_NOPRECEDE=4)
parameter(MPI_MODE_NOSUCCEED=8)
parameter(MPI_MODE_NOCHECK=16)
integer MPI_SUCCESS, MPI_ERR_COMM, MPI_ERR_ARG, MPI_ERR_TYPE
integer MPI_ERR_REQUEST, MPI_ERR_INTERN, MPI_ERR_COUNT
integer MPI_ERR_RANK, MPI_ERR_TAG, MPI_ERR_TRUNCATE
integer MPI_ERR_GROUP, MPI_ERR_OP, MPI_ERR_OTHER
integer MPI_ERR_IN_STATUS, MPI_ERR_PENDING, MPI_ERR_BUFFER
integer MPI_ERR_NAME, MPI_ERR_DIMS, MPI_ERR_TOPOLOGY
integer MPI_ERR_NO_MEM, MPI_ERR_WIN, MPI_ERR_INFO_VALUE
integer MPI_ERR_INFO_KEY, MPI_ERR_INFO_NOKEY, MPI_ERR_ROOT
integer MPI_ERR_KEYVAL, MPI_ERR_BASE, MPI_ERR_SPAWN
integer MPI_ERR_UNKNOWN
integer MPI_ERR_LASTCODE
integer MPI_IDENT, MPI_SIMILAR, MPI_UNEQUAL, MPI_CONGRUENT
parameter(MPI_SUCCESS=0)
parameter(MPI_ERR_COMM=1)
parameter(MPI_ERR_ARG=2)
parameter(MPI_ERR_TYPE=3)
parameter(MPI_ERR_REQUEST=4)
parameter(MPI_ERR_INTERN=5)
parameter(MPI_ERR_COUNT=6)
parameter(MPI_ERR_RANK=7)
parameter(MPI_ERR_TAG=8)
parameter(MPI_ERR_TRUNCATE=9)
parameter(MPI_ERR_GROUP=10)
parameter(MPI_ERR_OP=11)
parameter(MPI_ERR_OTHER=12)
parameter(MPI_ERR_IN_STATUS=13)
parameter(MPI_ERR_PENDING=14)
parameter(MPI_ERR_BUFFER=15)
parameter(MPI_ERR_NAME=16)
parameter(MPI_ERR_DIMS=17)
parameter(MPI_ERR_TOPOLOGY=18)
parameter(MPI_ERR_NO_MEM=19)
parameter(MPI_ERR_WIN=20)
parameter(MPI_ERR_INFO_VALUE=21)
parameter(MPI_ERR_INFO_KEY=22)
parameter(MPI_ERR_INFO_NOKEY=23)
parameter(MPI_ERR_ROOT=24)
parameter(MPI_ERR_KEYVAL=25)
parameter(MPI_ERR_BASE=26)
parameter(MPI_ERR_SPAWN=27)
parameter(MPI_ERR_UNKNOWN=28)
parameter(MPI_ERR_LASTCODE=74)
parameter(MPI_IDENT=0)
parameter(MPI_SIMILAR=1)
parameter(MPI_UNEQUAL=2)
parameter(MPI_CONGRUENT=3)
integer MPI_NULL_COPY_FN, MPI_NULL_DELETE_FN
parameter(MPI_NULL_COPY_FN =0)
parameter(MPI_NULL_DELETE_FN =0)
integer MPI_COMM_NULL_COPY_FN, MPI_COMM_NULL_DELETE_FN
parameter(MPI_COMM_NULL_COPY_FN =0)
parameter(MPI_COMM_NULL_DELETE_FN =0)
integer MPI_COMM_DUP_FN
parameter(MPI_COMM_DUP_FN =1)
integer MPI_WIN_NULL_DELETE_FN
parameter(MPI_WIN_NULL_DELETE_FN =0)
integer MPI_TYPE_NULL_COPY_FN, MPI_TYPE_NULL_DELETE_FN
parameter(MPI_TYPE_NULL_COPY_FN =0)
parameter(MPI_TYPE_NULL_DELETE_FN =0)
integer MPI_TYPE_DUP_FN
parameter(MPI_TYPE_DUP_FN =1)
integer MPI_ROOT, MPI_COMM_TYPE_SHARED
parameter(MPI_ROOT=0)
parameter(MPI_COMM_TYPE_SHARED=1)
! Attribute keys
integer MPI_IO, MPI_HOST, MPI_WTIME_IS_GLOBAL, MPI_APPNUM
integer MPI_TAG_UB, MPI_TAG_LB, MPI_BSEND_OVERHEAD
integer MPI_UNIVERSE_SIZE, MPI_LASTUSEDCODE
parameter(MPI_IO=-1)
parameter(MPI_HOST=-2)
parameter(MPI_WTIME_IS_GLOBAL=-3)
parameter(MPI_APPNUM=-4)
parameter(MPI_TAG_UB=-5)
parameter(MPI_TAG_LB=-6)
parameter(MPI_UNIVERSE_SIZE=-7)
parameter(MPI_LASTUSEDCODE=-8)
parameter(MPI_BSEND_OVERHEAD=0)
! This should be equal to the number of int fields in MPI_Status
integer MPI_STATUS_SIZE
parameter(MPI_STATUS_SIZE=5)
integer MPI_INTEGER_KIND
parameter(MPI_INTEGER_KIND=4)
external MPI_IN_PLACE, MPI_BOTTOM
external MPI_STATUS_IGNORE, MPI_STATUSES_IGNORE
integer MPI_BYTE, MPI_CHARACTER, MPI_LOGICAL
integer MPI_INTEGER, MPI_INTEGER1, MPI_INTEGER2, MPI_INTEGER4
integer MPI_INTEGER8, MPI_REAL, MPI_REAL4, MPI_REAL8
integer MPI_DOUBLE_PRECISION, MPI_COMPLEX, MPI_DOUBLE_COMPLEX
integer MPI_2INTEGER, MPI_LOGICAL1, MPI_LOGICAL2, MPI_LOGICAL4
integer MPI_LOGICAL8, MPI_2REAL, MPI_2DOUBLE_PRECISION
integer MPI_AINT, MPI_OFFSET, MPI_COUNT, MPI_REAL16
integer MPI_PACKED, MPI_COMPLEX8, MPI_COMPLEX16, MPI_COMPLEX32
integer MPI_DOUBLE, MPI_INT, MPI_FLOAT
integer MPI_MAX, MPI_MIN, MPI_MAXLOC, MPI_MINLOC
integer MPI_SUM, MPI_PROD, MPI_LAND, MPI_LOR, MPI_LXOR, MPI_BAND
integer MPI_BOR, MPI_BXOR
! _NULL handles should be negative
integer MPI_REQUEST_NULL,MPI_DATATYPE_NULL,MPI_OP_NULL
integer MPI_COMM_NULL, MPI_COMM_WORLD, MPI_COMM_SELF
integer MPI_GROUP_NULL, MPI_GROUP_EMPTY, MPI_WIN_NULL
integer MPI_INFO_NULL, MPI_ERRHANDLER_NULL
parameter(MPI_REQUEST_NULL=-1)
parameter(MPI_DATATYPE_NULL=-1)
parameter(MPI_OP_NULL=-1)
parameter(MPI_INFO_NULL=-1)
parameter(MPI_COMM_NULL=-1)
parameter(MPI_COMM_SELF=-2)
parameter(MPI_GROUP_NULL=-1)
parameter(MPI_GROUP_EMPTY=-2)
parameter(MPI_WIN_NULL=-1)
parameter(MPI_ERRHANDLER_NULL=-1)
integer MPI_WIN_BASE, MPI_WIN_SIZE, MPI_WIN_DISP_UNIT
parameter(MPI_WIN_BASE=-1)
parameter(MPI_WIN_SIZE=-2)
parameter(MPI_WIN_DISP_UNIT=-3)
integer MPI_GRAPH, MPI_CART
integer MPI_DIST_GRAPH, MPI_INVALID_TOPO
parameter(MPI_GRAPH=0)
parameter(MPI_CART=1)
parameter(MPI_DIST_GRAPH=2)
parameter(MPI_INVALID_TOPO=3)
! These IDs have to be unique, consecutive
! and ordered as in smpi_f77.cpp.
parameter(MPI_COMM_WORLD=0)
parameter(MPI_BYTE=1)
parameter(MPI_CHARACTER=2)
parameter(MPI_LOGICAL=18)
parameter(MPI_INT=4)
parameter(MPI_INTEGER=4)
parameter(MPI_INTEGER1=5)
parameter(MPI_INTEGER2=6)
parameter(MPI_INTEGER4=7)
parameter(MPI_INTEGER8=8)
parameter(MPI_REAL=9)
parameter(MPI_FLOAT=9)
parameter(MPI_REAL4=10)
parameter(MPI_REAL8=11)
parameter(MPI_DOUBLE_PRECISION=12)
parameter(MPI_DOUBLE=12)
parameter(MPI_COMPLEX=13)
parameter(MPI_DOUBLE_COMPLEX=14)
parameter(MPI_2INTEGER=15)
parameter(MPI_LOGICAL1=16)
parameter(MPI_LOGICAL2=17)
parameter(MPI_LOGICAL4=18)
parameter(MPI_LOGICAL8=19)
parameter(MPI_2REAL=20)
parameter(MPI_2DOUBLE_PRECISION=21)
parameter(MPI_AINT=22)
parameter(MPI_OFFSET=23)
parameter(MPI_COUNT=24)
parameter(MPI_REAL16=25)
parameter(MPI_PACKED=26)
parameter(MPI_COMPLEX8=27)
parameter(MPI_COMPLEX16=28)
parameter(MPI_COMPLEX32=29)
parameter(MPI_MAX=30)
parameter(MPI_MIN=31)
parameter(MPI_MAXLOC=32)
parameter(MPI_MINLOC=33)
parameter(MPI_SUM=34)
parameter(MPI_PROD=35)
parameter(MPI_LAND=36)
parameter(MPI_LOR=37)
parameter(MPI_LXOR=38)
parameter(MPI_BAND=39)
parameter(MPI_BOR=40)
parameter(MPI_BXOR=41)
integer MPI_ERRORS_RETURN, MPI_ERRORS_ARE_FATAL
parameter(MPI_ERRORS_RETURN=42)
parameter(MPI_ERRORS_ARE_FATAL=43)
integer MPI_LB, MPI_UB
parameter(MPI_LB=44)
parameter(MPI_UB=45)
INTEGER MPI_ADDRESS_KIND, MPI_OFFSET_KIND
PARAMETER (MPI_ADDRESS_KIND=@CMAKE_SIZEOF_VOID_P@)
PARAMETER (MPI_OFFSET_KIND=@CMAKE_SIZEOF_VOID_P@)
integer MPI_COMBINER_NAMED, MPI_COMBINER_DUP
integer MPI_COMBINER_CONTIGUOUS, MPI_COMBINER_VECTOR
integer MPI_COMBINER_HVECTOR_INTEGER, MPI_COMBINER_HVECTOR
integer MPI_COMBINER_INDEXED, MPI_COMBINER_HINDEXED_INTEGER
integer MPI_COMBINER_HINDEXED, MPI_COMBINER_INDEXED_BLOCK
integer MPI_COMBINER_STRUCT_INTEGER, MPI_COMBINER_STRUCT
integer MPI_COMBINER_SUBARRAY, MPI_COMBINER_DARRAY
integer MPI_COMBINER_F90_REAL, MPI_COMBINER_F90_COMPLEX
integer MPI_COMBINER_F90_INTEGER, MPI_COMBINER_RESIZED
integer MPI_COMBINER_HINDEXED_BLOCK
parameter( MPI_COMBINER_NAMED=0)
parameter( MPI_COMBINER_DUP=1)
parameter( MPI_COMBINER_CONTIGUOUS=2)
parameter( MPI_COMBINER_VECTOR=3)
parameter( MPI_COMBINER_HVECTOR_INTEGER=4)
parameter( MPI_COMBINER_HVECTOR=5)
parameter( MPI_COMBINER_INDEXED=6)
parameter( MPI_COMBINER_HINDEXED_INTEGER=7)
parameter( MPI_COMBINER_HINDEXED=8)
parameter( MPI_COMBINER_INDEXED_BLOCK=9)
parameter( MPI_COMBINER_STRUCT_INTEGER=10)
parameter( MPI_COMBINER_STRUCT=11)
parameter( MPI_COMBINER_SUBARRAY=12)
parameter( MPI_COMBINER_DARRAY=13)
parameter( MPI_COMBINER_F90_REAL=14)
parameter( MPI_COMBINER_F90_COMPLEX=15)
parameter( MPI_COMBINER_F90_INTEGER=16)
parameter( MPI_COMBINER_RESIZED=17)
parameter( MPI_COMBINER_HINDEXED_BLOCK=18)
integer MPI_MODE_RDONLY, MPI_MODE_RDWR, MPI_MODE_WRONLY
integer MPI_MODE_CREATE, MPI_MODE_EXCL, MPI_MODE_DELETE_ON_CLOSE
integer MPI_MODE_UNIQUE_OPEN, MPI_MODE_APPEND, MPI_MODE_SEQUENTIAL
integer MPI_FILE_NULL
integer MPI_DISPLACEMENT_CURRENT, MPI_SEEK_SET, MPI_SEEK_CUR
parameter(MPI_FILE_NULL=0)
parameter(MPI_DISPLACEMENT_CURRENT=-54278278)
parameter(MPI_SEEK_SET=600)
parameter(MPI_SEEK_CUR=602)
parameter( MPI_MODE_RDONLY=2)
parameter( MPI_MODE_RDWR=8)
parameter( MPI_MODE_WRONLY=4)
parameter( MPI_MODE_CREATE=1)
parameter( MPI_MODE_EXCL=64)
parameter( MPI_MODE_DELETE_ON_CLOSE=16)
parameter( MPI_MODE_UNIQUE_OPEN=32)
parameter( MPI_MODE_APPEND=128)
parameter( MPI_MODE_SEQUENTIAL=256)
integer MPI_ORDER_C, MPI_ORDER_FORTRAN
parameter(MPI_ORDER_C=1)
parameter(MPI_ORDER_FORTRAN=0)
external MPI_INIT, MPI_FINALIZE, MPI_ABORT
external MPI_COMM_RANK, MPI_COMM_SIZE, MPI_COMM_DUP
external MPI_SEND_INIT, MPI_ISEND, MPI_SEND, MPI_COMM_SPLIT
external MPI_RECV_INIT, MPI_IRECV, MPI_RECV
external MPI_START, MPI_STARTALL
external MPI_WAIT, MPI_WAITANY, MPI_WAITALL
external MPI_BCAST, MPI_BARRIER, MPI_REDUCE, MPI_ALLREDUCE
external MPI_SCATTER, MPI_GATHER, MPI_ALLGATHER, MPI_SCAN
external MPI_ALLTOALL, MPI_GATHERV, MPI_SENDRECV
external MPI_WIN_DUP_FN, MPI_WIN_NULL_COPY_FN
external MPI_WTIME
external MPI_WTICK
double precision MPI_WTIME
double precision MPI_WTICK
external smpi_execute_flops
external smpi_execute_flops_benched
external smpi_execute
external smpi_execute_benched
@MODULE_MPIF_OUT@
|
