[4775] | 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 | |
---|