[6331] | 1 | |
---|
| 2 | ! |
---|
| 3 | ! MPI_COMM_WORLD |
---|
| 4 | ! |
---|
| 5 | |
---|
| 6 | INTEGER MPI_COMM_WORLD |
---|
| 7 | parameter (mpi_comm_world=1) |
---|
| 8 | |
---|
| 9 | ! |
---|
| 10 | ! |
---|
| 11 | ! |
---|
| 12 | |
---|
| 13 | integer MPI_BOTTOM |
---|
| 14 | parameter (MPI_BOTTOM=0) |
---|
| 15 | |
---|
| 16 | |
---|
| 17 | ! |
---|
| 18 | ! source,tag |
---|
| 19 | ! |
---|
| 20 | |
---|
| 21 | integer MPI_ANY_SOURCE, MPI_ANY_TAG, MPI_TAG_UB |
---|
| 22 | parameter (mpi_any_source=-1, mpi_any_tag= -1, mpi_tag_ub=1681915906) |
---|
| 23 | |
---|
| 24 | integer MPI_PROC_NULL, MPI_ROOT |
---|
| 25 | parameter (MPI_PROC_NULL=-2, MPI_ROOT=-3) |
---|
| 26 | |
---|
| 27 | integer MPI_COMM_NULL, MPI_REQUEST_NULL |
---|
| 28 | parameter (MPI_COMM_NULL=0, MPI_REQUEST_NULL=0) |
---|
| 29 | |
---|
| 30 | integer MPI_GROUP_NULL, MPI_GROUP_EMPTY |
---|
| 31 | parameter (MPI_GROUP_NULL=0, MPI_GROUP_EMPTY= -1) |
---|
| 32 | |
---|
| 33 | integer MPI_MAX_ERROR_STRING |
---|
| 34 | parameter (MPI_MAX_ERROR_STRING=128) |
---|
| 35 | |
---|
| 36 | integer MPI_MAX_PROCESSOR_NAME |
---|
| 37 | parameter (MPI_MAX_PROCESSOR_NAME=128) |
---|
| 38 | |
---|
| 39 | ! |
---|
| 40 | ! Return codes |
---|
| 41 | ! |
---|
| 42 | |
---|
| 43 | integer MPI_SUCCESS |
---|
| 44 | parameter (MPI_SUCCESS=0) |
---|
| 45 | |
---|
| 46 | integer MPI_ERR_BUFFER |
---|
| 47 | parameter (MPI_ERR_BUFFER= -1) |
---|
| 48 | |
---|
| 49 | integer MPI_ERR_COUNT |
---|
| 50 | parameter (MPI_ERR_COUNT= -1) |
---|
| 51 | |
---|
| 52 | integer MPI_ERR_TYPE |
---|
| 53 | parameter (MPI_ERR_TYPE= -1) |
---|
| 54 | |
---|
| 55 | integer MPI_ERR_TAG |
---|
| 56 | parameter (MPI_ERR_TAG= -1) |
---|
| 57 | |
---|
| 58 | integer MPI_ERR_COMM |
---|
| 59 | parameter (MPI_ERR_COMM= -1) |
---|
| 60 | |
---|
| 61 | integer MPI_ERR_RANK |
---|
| 62 | parameter (MPI_ERR_RANK= -1) |
---|
| 63 | |
---|
| 64 | integer MPI_ERR_REQUEST |
---|
| 65 | parameter (MPI_ERR_REQUEST= -1) |
---|
| 66 | |
---|
| 67 | integer MPI_ERR_ROOT |
---|
| 68 | parameter (MPI_ERR_ROOT= -1) |
---|
| 69 | |
---|
| 70 | integer MPI_ERR_GROUP |
---|
| 71 | parameter (MPI_ERR_GROUP= -1) |
---|
| 72 | |
---|
| 73 | integer MPI_ERR_OP |
---|
| 74 | parameter (MPI_ERR_OP= -1) |
---|
| 75 | |
---|
| 76 | integer MPI_ERR_TOPOLOGY |
---|
| 77 | parameter (MPI_ERR_TOPOLOGY= -1) |
---|
| 78 | |
---|
| 79 | integer MPI_ERR_DIMS |
---|
| 80 | parameter (MPI_ERR_DIMS= -1) |
---|
| 81 | |
---|
| 82 | integer MPI_ERR_ARG |
---|
| 83 | parameter (MPI_ERR_ARG= -1) |
---|
| 84 | |
---|
| 85 | integer MPI_ERR_UNKNOWN |
---|
| 86 | parameter (MPI_ERR_UNKNOWN= -1) |
---|
| 87 | |
---|
| 88 | integer MPI_ERR_TRUNCATE |
---|
| 89 | parameter (MPI_ERR_TRUNCATE= -1) |
---|
| 90 | |
---|
| 91 | integer MPI_ERR_OTHER |
---|
| 92 | parameter (MPI_ERR_OTHER= -1) |
---|
| 93 | |
---|
| 94 | integer MPI_ERR_INTERN |
---|
| 95 | parameter (MPI_ERR_INTERN= -1) |
---|
| 96 | |
---|
| 97 | integer MPI_PENDING |
---|
| 98 | parameter (MPI_PENDING= -1) |
---|
| 99 | |
---|
| 100 | integer MPI_ERR_IN_STATUS |
---|
| 101 | parameter (MPI_ERR_IN_STATUS= -1) |
---|
| 102 | |
---|
| 103 | integer MPI_ERR_LASTCODE |
---|
| 104 | parameter (MPI_ERR_LASTCODE= -1) |
---|
| 105 | |
---|
| 106 | integer MPI_ERRORS_RETURN |
---|
| 107 | parameter (MPI_ERRORS_RETURN= -1) |
---|
| 108 | |
---|
| 109 | integer MPI_THREAD_SINGLE |
---|
| 110 | parameter (MPI_THREAD_SINGLE=0) |
---|
| 111 | integer MPI_THREAD_FUNNELED |
---|
| 112 | parameter (MPI_THREAD_FUNNELED=1) |
---|
| 113 | integer MPI_THREAD_SERIALIZED |
---|
| 114 | parameter (MPI_THREAD_SERIALIZED=2) |
---|
| 115 | integer MPI_THREAD_MULTIPLE |
---|
| 116 | parameter (MPI_THREAD_MULTIPLE=3) |
---|
| 117 | |
---|
| 118 | ! |
---|
| 119 | ! |
---|
| 120 | |
---|
| 121 | |
---|
| 122 | integer MPI_UNDEFINED |
---|
| 123 | parameter (MPI_UNDEFINED= -1) |
---|
| 124 | |
---|
| 125 | |
---|
| 126 | ! |
---|
| 127 | ! MPI_Status |
---|
| 128 | ! |
---|
| 129 | ! The values in this section MUST match the struct definition |
---|
| 130 | ! in mpi.h |
---|
| 131 | ! |
---|
| 132 | |
---|
| 133 | |
---|
| 134 | INTEGER MPI_STATUS_SIZE |
---|
| 135 | PARAMETER (MPI_STATUS_SIZE=4) |
---|
| 136 | |
---|
| 137 | INTEGER MPI_SOURCE, MPI_TAG, MPI_ERROR |
---|
| 138 | PARAMETER(MPI_SOURCE=1, MPI_TAG=2, MPI_ERROR=3) |
---|
| 139 | ! There is a 4th value only used internally |
---|
| 140 | |
---|
| 141 | INTEGER MPI_STATUS_IGNORE(MPI_STATUS_SIZE) |
---|
| 142 | INTEGER MPI_STATUSES_IGNORE(MPI_STATUS_SIZE,1) |
---|
| 143 | COMMON /MPISERIAL/ MPI_STATUS_IGNORE |
---|
| 144 | COMMON /MPISERIAL/ MPI_STATUSES_IGNORE |
---|
| 145 | |
---|
| 146 | ! |
---|
| 147 | ! MPI_IN_PLACE |
---|
| 148 | ! |
---|
| 149 | |
---|
| 150 | INTEGER MPI_IN_PLACE |
---|
| 151 | COMMON /MPISERIAL/ MPI_IN_PLACE |
---|
| 152 | |
---|
| 153 | SAVE /MPISERIAL/ ! Technically needed in case goes out of scope |
---|
| 154 | |
---|
| 155 | |
---|
| 156 | ! |
---|
| 157 | ! MPI_Datatype values |
---|
| 158 | ! |
---|
| 159 | ! New datatype values |
---|
| 160 | ! Type constants represent integer handles, matching up to the index of the |
---|
| 161 | ! type array equal to the absolute value of the constant plus one. For |
---|
| 162 | ! example, MPI_BYTE=-12, corresponding to type index 11. |
---|
| 163 | ! (Array in type_const.c) |
---|
| 164 | ! |
---|
| 165 | |
---|
| 166 | |
---|
| 167 | INTEGER MPI_DATATYPE_NULL |
---|
| 168 | PARAMETER (MPI_DATATYPE_NULL=0) |
---|
| 169 | |
---|
| 170 | INTEGER MPI_BYTE |
---|
| 171 | PARAMETER (MPI_BYTE=-12) |
---|
| 172 | |
---|
| 173 | INTEGER MPI_PACKED |
---|
| 174 | PARAMETER (MPI_PACKED=-13) |
---|
| 175 | |
---|
| 176 | INTEGER MPI_LB |
---|
| 177 | PARAMETER (MPI_LB=-14) |
---|
| 178 | |
---|
| 179 | INTEGER MPI_UB |
---|
| 180 | PARAMETER (MPI_UB=-15) |
---|
| 181 | |
---|
| 182 | INTEGER MPI_INTEGER |
---|
| 183 | PARAMETER (MPI_INTEGER=-16) |
---|
| 184 | |
---|
| 185 | INTEGER MPI_REAL |
---|
| 186 | PARAMETER (MPI_REAL=-17) |
---|
| 187 | |
---|
| 188 | INTEGER MPI_DOUBLE_PRECISION |
---|
| 189 | PARAMETER (MPI_DOUBLE_PRECISION=-18) |
---|
| 190 | |
---|
| 191 | INTEGER MPI_COMPLEX |
---|
| 192 | PARAMETER (MPI_COMPLEX=-19) |
---|
| 193 | |
---|
| 194 | INTEGER MPI_DOUBLE_COMPLEX |
---|
| 195 | PARAMETER (MPI_DOUBLE_COMPLEX=-20) |
---|
| 196 | |
---|
| 197 | INTEGER MPI_LOGICAL |
---|
| 198 | PARAMETER (MPI_LOGICAL=-21) |
---|
| 199 | |
---|
| 200 | INTEGER MPI_CHARACTER |
---|
| 201 | PARAMETER (MPI_CHARACTER=-22) |
---|
| 202 | |
---|
| 203 | integer MPI_2REAL |
---|
| 204 | parameter (MPI_2REAL= -23) |
---|
| 205 | |
---|
| 206 | integer MPI_2DOUBLE_PRECISION |
---|
| 207 | parameter (MPI_2DOUBLE_PRECISION= -24) |
---|
| 208 | |
---|
| 209 | integer MPI_2INTEGER |
---|
| 210 | parameter (MPI_2INTEGER= -25) |
---|
| 211 | |
---|
| 212 | |
---|
| 213 | ! |
---|
| 214 | ! Size-specific types |
---|
| 215 | ! |
---|
| 216 | |
---|
| 217 | INTEGER MPI_INTEGER1 |
---|
| 218 | PARAMETER (MPI_INTEGER1= -32 ) |
---|
| 219 | |
---|
| 220 | INTEGER MPI_INTEGER2 |
---|
| 221 | PARAMETER (MPI_INTEGER2= -33 ) |
---|
| 222 | |
---|
| 223 | INTEGER MPI_INTEGER4 |
---|
| 224 | PARAMETER (MPI_INTEGER4= -34 ) |
---|
| 225 | |
---|
| 226 | INTEGER MPI_INTEGER8 |
---|
| 227 | PARAMETER (MPI_INTEGER8= -35 ) |
---|
| 228 | |
---|
| 229 | INTEGER MPI_INTEGER16 |
---|
| 230 | PARAMETER (MPI_INTEGER16= -36 ) |
---|
| 231 | |
---|
| 232 | |
---|
| 233 | INTEGER MPI_REAL4 |
---|
| 234 | PARAMETER (MPI_REAL4= -37 ) |
---|
| 235 | |
---|
| 236 | INTEGER MPI_REAL8 |
---|
| 237 | PARAMETER (MPI_REAL8= -38 ) |
---|
| 238 | |
---|
| 239 | INTEGER MPI_REAL16 |
---|
| 240 | PARAMETER (MPI_REAL16= -39 ) |
---|
| 241 | |
---|
| 242 | |
---|
| 243 | integer MPI_COMPLEX8 |
---|
| 244 | parameter (MPI_COMPLEX8= -40 ) |
---|
| 245 | |
---|
| 246 | integer MPI_COMPLEX16 |
---|
| 247 | parameter (MPI_COMPLEX16= -41 ) |
---|
| 248 | |
---|
| 249 | integer MPI_COMPLEX32 |
---|
| 250 | parameter (MPI_COMPLEX32= -42 ) |
---|
| 251 | |
---|
| 252 | integer MPI_LONG_LONG_INT |
---|
| 253 | parameter (MPI_LONG_LONG_INT= -43) |
---|
| 254 | |
---|
| 255 | integer MPI_LONG_LONG |
---|
| 256 | parameter (MPI_LONG_LONG= MPI_LONG_LONG_INT) |
---|
| 257 | |
---|
| 258 | integer MPI_UNSIGNED_LONG_LONG |
---|
| 259 | parameter (MPI_UNSIGNED_LONG_LONG= -44) |
---|
| 260 | |
---|
| 261 | integer MPI_OFFSET |
---|
| 262 | parameter (MPI_OFFSET= -45) |
---|
| 263 | |
---|
| 264 | ! |
---|
| 265 | ! MPI_Op values |
---|
| 266 | ! |
---|
| 267 | ! (All are handled as no-op so no value is necessary; but provide one |
---|
| 268 | ! anyway just in case.) |
---|
| 269 | ! |
---|
| 270 | |
---|
| 271 | INTEGER MPI_SUM |
---|
| 272 | PARAMETER (MPI_SUM=0) |
---|
| 273 | INTEGER MPI_MAX |
---|
| 274 | PARAMETER (MPI_MAX=0) |
---|
| 275 | INTEGER MPI_MIN |
---|
| 276 | PARAMETER (MPI_MIN=0) |
---|
| 277 | INTEGER MPI_PROD |
---|
| 278 | PARAMETER (MPI_PROD=0) |
---|
| 279 | INTEGER MPI_LAND |
---|
| 280 | PARAMETER (MPI_LAND=0) |
---|
| 281 | INTEGER MPI_BAND |
---|
| 282 | PARAMETER (MPI_BAND=0) |
---|
| 283 | INTEGER MPI_LOR |
---|
| 284 | PARAMETER (MPI_LOR=0) |
---|
| 285 | INTEGER MPI_BOR |
---|
| 286 | PARAMETER (MPI_BOR=0) |
---|
| 287 | INTEGER MPI_LXOR |
---|
| 288 | PARAMETER (MPI_LXOR=0) |
---|
| 289 | INTEGER MPI_BXOR |
---|
| 290 | PARAMETER (MPI_BXOR=0) |
---|
| 291 | INTEGER MPI_MINLOC |
---|
| 292 | PARAMETER (MPI_MINLOC=0) |
---|
| 293 | INTEGER MPI_MAXLOC |
---|
| 294 | PARAMETER (MPI_MAXLOC=0) |
---|
| 295 | INTEGER MPI_OP_NULL |
---|
| 296 | PARAMETER (MPI_OP_NULL=0) |
---|
| 297 | |
---|
| 298 | ! |
---|
| 299 | ! MPI_Wtime |
---|
| 300 | ! |
---|
| 301 | |
---|
| 302 | DOUBLE PRECISION MPI_WTIME |
---|
| 303 | EXTERNAL MPI_WTIME |
---|
| 304 | |
---|
| 305 | |
---|
| 306 | ! |
---|
| 307 | ! Kinds |
---|
| 308 | ! |
---|
| 309 | |
---|
| 310 | INTEGER MPI_OFFSET_KIND |
---|
| 311 | PARAMETER (MPI_OFFSET_KIND=selected_int_kind(13)) |
---|
| 312 | |
---|
| 313 | INTEGER MPI_MODE_RDONLY |
---|
| 314 | PARAMETER (MPI_MODE_RDONLY=0) |
---|
| 315 | |
---|
| 316 | INTEGER MPI_MODE_CREATE |
---|
| 317 | PARAMETER (MPI_MODE_CREATE=1) |
---|
| 318 | |
---|
| 319 | INTEGER MPI_MODE_RDWR |
---|
| 320 | PARAMETER (MPI_MODE_RDWR=2) |
---|
| 321 | |
---|
| 322 | |
---|
| 323 | ! |
---|
| 324 | ! Info |
---|
| 325 | ! |
---|
| 326 | |
---|
| 327 | INTEGER MPI_INFO_NULL |
---|
| 328 | PARAMETER (MPI_INFO_NULL=0) |
---|
| 329 | |
---|
| 330 | |
---|
| 331 | ! |
---|
| 332 | ! Library version string (must match C value) |
---|
| 333 | ! |
---|
| 334 | |
---|
| 335 | INTEGER MPI_MAX_LIBRARY_VERSION_STRING |
---|
| 336 | PARAMETER (MPI_MAX_LIBRARY_VERSION_STRING=80) |
---|
| 337 | |
---|
| 338 | ! |
---|
| 339 | ! MPI Version |
---|
| 340 | ! |
---|
| 341 | INTEGER MPI_VERSION |
---|
| 342 | PARAMETER (MPI_VERSION=1) |
---|
| 343 | INTEGER MPI_SUBVERSION |
---|
| 344 | PARAMETER (MPI_SUBVERSION=0) |
---|