00001 !!! Values here must match those in ampi.h, or otherwise be !!!
00002 !!! converted from the Fortran to the C value in ampif.C !!!
00003 !!! Note: we can't have more than 72 characters per line, !!!
00004 !!! the first 6 characters per line must be blank, !!!
00005 !!! and we can't have any line continuations in this !!!
00006 !!! file in order to support all three of fixed-form, !!!
00007 !!! free-form, and line-extended fixed-form source. !!!
00008
00009 integer, parameter :: MPI_SUCCESS = 0
00010 integer, parameter :: MPI_ERR_BUFFER = 1
00011 integer, parameter :: MPI_ERR_COUNT = 2
00012 integer, parameter :: MPI_ERR_TYPE = 3
00013 integer, parameter :: MPI_ERR_TAG = 4
00014 integer, parameter :: MPI_ERR_COMM = 5
00015 integer, parameter :: MPI_ERR_RANK = 6
00016 integer, parameter :: MPI_ERR_REQUEST = 7
00017 integer, parameter :: MPI_ERR_ROOT = 8
00018 integer, parameter :: MPI_ERR_GROUP = 9
00019 integer, parameter :: MPI_ERR_OP = 10
00020 integer, parameter :: MPI_ERR_TOPOLOGY = 11
00021 integer, parameter :: MPI_ERR_DIMS = 12
00022 integer, parameter :: MPI_ERR_ARG = 13
00023 integer, parameter :: MPI_ERR_UNKNOWN = 14
00024 integer, parameter :: MPI_ERR_TRUNCATE = 15
00025 integer, parameter :: MPI_ERR_OTHER = 16
00026 integer, parameter :: MPI_ERR_INTERN = 17
00027 integer, parameter :: MPI_ERR_IN_STATUS = 18
00028 integer, parameter :: MPI_ERR_PENDING = 19
00029 integer, parameter :: MPI_ERR_ACCESS = 20
00030 integer, parameter :: MPI_ERR_AMODE = 21
00031 integer, parameter :: MPI_ERR_ASSERT = 22
00032 integer, parameter :: MPI_ERR_BAD_FILE = 23
00033 integer, parameter :: MPI_ERR_BASE = 24
00034 integer, parameter :: MPI_ERR_CONVERSION = 25
00035 integer, parameter :: MPI_ERR_DISP = 26
00036 integer, parameter :: MPI_ERR_DUP_DATAREP = 27
00037 integer, parameter :: MPI_ERR_FILE_EXISTS = 28
00038 integer, parameter :: MPI_ERR_FILE_IN_USE = 29
00039 integer, parameter :: MPI_ERR_FILE = 30
00040 integer, parameter :: MPI_ERR_INFO_KEY = 31
00041 integer, parameter :: MPI_ERR_INFO_NOKEY = 32
00042 integer, parameter :: MPI_ERR_INFO_VALUE = 33
00043 integer, parameter :: MPI_ERR_INFO = 34
00044 integer, parameter :: MPI_ERR_IO = 35
00045 integer, parameter :: MPI_ERR_KEYVAL = 36
00046 integer, parameter :: MPI_ERR_LOCKTYPE = 37
00047 integer, parameter :: MPI_ERR_NAME = 38
00048 integer, parameter :: MPI_ERR_NO_MEM = 39
00049 integer, parameter :: MPI_ERR_NOT_SAME = 40
00050 integer, parameter :: MPI_ERR_NO_SPACE = 41
00051 integer, parameter :: MPI_ERR_NO_SUCH_FILE = 42
00052 integer, parameter :: MPI_ERR_PORT = 43
00053 integer, parameter :: MPI_ERR_QUOTA = 44
00054 integer, parameter :: MPI_ERR_READ_ONLY = 45
00055 integer, parameter :: MPI_ERR_RMA_CONFLICT = 46
00056 integer, parameter :: MPI_ERR_RMA_SYNC = 47
00057 integer, parameter :: MPI_ERR_SERVICE = 48
00058 integer, parameter :: MPI_ERR_SIZE = 49
00059 integer, parameter :: MPI_ERR_SPAWN = 50
00060 integer, parameter :: MPI_ERR_UNSUPPORTED_DATAREP = 51
00061 integer, parameter :: MPI_ERR_UNSUPPORTED_OPERATION = 52
00062 integer, parameter :: MPI_ERR_WIN = 53
00063 integer, parameter :: MPI_ERR_LASTCODE = 53
00064 integer, parameter :: MPI_LASTUSEDCODE = 53
00065
00066 integer, parameter :: MPI_ERRHANDLER_NULL = 0
00067 integer, parameter :: MPI_ERRORS_RETURN = 1
00068 integer, parameter :: MPI_ERRORS_ARE_FATAL = 2
00069
00070 integer, parameter :: MPI_MAX_PROCESSOR_NAME = 256
00071 integer, parameter :: MPI_MAX_ERROR_STRING = 256
00072 integer, parameter :: MPI_MAX_LIBRARY_VERSION_STRING = 256
00073
00074 integer, parameter :: MPI_VERSION = 2
00075 integer, parameter :: MPI_SUBVERSION = 2
00076
00077 integer, parameter :: MPI_THREAD_SINGLE = 1
00078 integer, parameter :: MPI_THREAD_FUNNELED = 2
00079 integer, parameter :: MPI_THREAD_SERIALIZED = 3
00080 integer, parameter :: MPI_THREAD_MULTIPLE = 4
00081
00082 integer, parameter :: MPI_DATATYPE_NULL = -1
00083 integer, parameter :: MPI_REAL8 = 0
00084 integer, parameter :: MPI_DOUBLE_PRECISION = MPI_REAL8
00085 integer, parameter :: MPI_INT = 1
00086 integer, parameter :: MPI_INTEGER = MPI_INT
00087 integer, parameter :: MPI_INTEGER4 = MPI_INT
00088 integer, parameter :: MPI_REAL = 2
00089 integer, parameter :: MPI_REAL4 = MPI_REAL
00090 integer, parameter :: MPI_LOGICAL = 3
00091 integer, parameter :: MPI_CHARACTER = 5
00092 integer, parameter :: MPI_BYTE = 6
00093 integer, parameter :: MPI_PACKED = 7
00094 integer, parameter :: MPI_REAL16 = 14
00095 integer, parameter :: MPI_INTEGER8 = 15
00096 integer, parameter :: MPI_OFFSET = MPI_INTEGER8
00097 integer, parameter :: MPI_AINT = 27
00098 integer, parameter :: MPI_COUNT = MPI_AINT
00099 integer, parameter :: MPI_LB = 28
00100 integer, parameter :: MPI_UB = 29
00101 integer, parameter :: MPI_2INTEGER = 33
00102 integer, parameter :: MPI_2REAL = 36
00103 integer, parameter :: MPI_2DOUBLE_PRECISION = 37
00104 integer, parameter :: MPI_COMPLEX = 38
00105 integer, parameter :: MPI_COMPLEX8 = MPI_COMPLEX
00106 integer, parameter :: MPI_COMPLEX16 = 40
00107 integer, parameter :: MPI_DOUBLE_COMPLEX = MPI_COMPLEX16
00108 integer, parameter :: MPI_COMPLEX32 = 41
00109
00110 integer, parameter :: MPI_COMBINER_NAMED = 1
00111 integer, parameter :: MPI_COMBINER_CONTIGUOUS = 2
00112 integer, parameter :: MPI_COMBINER_VECTOR = 3
00113 integer, parameter :: MPI_COMBINER_HVECTOR = 4
00114 integer, parameter :: MPI_COMBINER_HVECTOR_INTEGER = 5
00115 integer, parameter :: MPI_COMBINER_INDEXED = 6
00116 integer, parameter :: MPI_COMBINER_HINDEXED = 7
00117 integer, parameter :: MPI_COMBINER_HINDEXED_INTEGER = 8
00118 integer, parameter :: MPI_COMBINER_STRUCT = 9
00119 integer, parameter :: MPI_COMBINER_STRUCT_INTEGER = 10
00120 integer, parameter :: MPI_COMBINER_DARRAY = 11
00121 integer, parameter :: MPI_COMBINER_RESIZED = 12
00122 integer, parameter :: MPI_COMBINER_SUBARRAY = 13
00123 integer, parameter :: MPI_COMBINER_INDEXED_BLOCK = 14
00124 integer, parameter :: MPI_COMBINED_HINDEXED_BLOCK = 15
00125
00126 integer, parameter :: MPI_TAG_UB_VALUE = 1073741824
00127
00128 integer, parameter :: MPI_PROC_NULL = -2
00129 integer, parameter :: MPI_ROOT = -3
00130 integer, parameter :: MPI_ANY_SOURCE = -1
00131 integer, parameter :: MPI_ANY_TAG = MPI_TAG_UB_VALUE+1
00132 integer, parameter :: MPI_REQUEST_NULL = -1
00133 integer, parameter :: MPI_GROUP_NULL = -1
00134 integer, parameter :: MPI_GROUP_EMPTY = 0
00135 integer, parameter :: MPI_COMM_NULL = -1
00136 integer, parameter :: MPI_KEYVAL_INVALID = -1
00137 integer, parameter :: MPI_INFO_NULL = -1
00138
00139 integer, pointer :: MPI_IN_PLACE
00140
00141 integer, parameter :: MPI_BOTTOM = 0
00142
00143 integer, parameter :: MPI_UNDEFINED = -32766
00144
00145 integer, parameter :: MPI_IDENT = 0
00146 integer, parameter :: MPI_SIMILAR = 1
00147 integer, parameter :: MPI_CONGRUENT = 2
00148 integer, parameter :: MPI_UNEQUAL = 3
00149
00150 integer, parameter :: MPI_COMM_TYPE_SHARED = 1
00151 integer, parameter :: AMPI_COMM_TYPE_HOST = 2
00152 integer, parameter :: AMPI_COMM_TYPE_PROCESS = 3
00153 integer, parameter :: AMPI_COMM_TYPE_WTH = 4
00154
00155 integer, parameter :: MPI_UNWEIGHTED = 0
00156 integer, parameter :: MPI_GRAPH = 1
00157 integer, parameter :: MPI_CART = 2
00158 integer, parameter :: MPI_DIST_GRAPH = 3
00159
00160 integer, parameter :: MPI_TAG_UB = -2
00161 integer, parameter :: MPI_HOST = -3
00162 integer, parameter :: MPI_IO = -4
00163 integer, parameter :: MPI_WTIME_IS_GLOBAL = -5
00164 integer, parameter :: MPI_APPNUM = -6
00165 integer, parameter :: MPI_UNIVERSE_SIZE = -7
00166 integer, parameter :: MPI_WIN_BASE = -8
00167 integer, parameter :: MPI_WIN_SIZE = -9
00168 integer, parameter :: MPI_WIN_DISP_UNIT = -10
00169 integer, parameter :: MPI_WIN_MODEL = -11
00170 integer, parameter :: MPI_WIN_CREATE_FLAVOR = -12
00171 integer, parameter :: AMPI_MY_WTH = -13
00172 integer, parameter :: AMPI_NUM_WTHS = -14
00173 integer, parameter :: AMPI_MY_PROCESS = -15
00174 integer, parameter :: AMPI_NUM_PROCESSES = -16
00175
00176 integer, parameter :: MPI_STATUS_SIZE = 8
00177
00178 integer, parameter :: MPI_TAG = 1
00179 integer, parameter :: MPI_SOURCE = 2
00180 integer, parameter :: MPI_COMM = 3
00181 integer, parameter :: MPI_ERROR = 5
00182
00183 integer, dimension(MPI_STATUS_SIZE) :: MPI_STATUS_IGNORE
00184 parameter (MPI_STATUS_IGNORE = (/-9,-9,-9,-9,-9,-9,-9,-9/))
00185 integer, dimension(MPI_STATUS_SIZE) :: MPI_STATUSES_IGNORE
00186 parameter (MPI_STATUSES_IGNORE = (/-9,-9,-9,-9,-9,-9,-9,-9/))
00187
00188 integer, parameter :: MPI_COMM_SELF = 1000000
00189 integer, parameter :: MPI_COMM_FIRST_SPLIT = 1000000
00190 integer, parameter :: MPI_COMM_FIRST_GROUP = 2000000
00191 integer, parameter :: MPI_COMM_FIRST_CART = 3000000
00192 integer, parameter :: MPI_COMM_FIRST_GRAPH = 4000000
00193 integer, parameter :: MPI_COMM_FIRST_INTER = 5000000
00194 integer, parameter :: MPI_COMM_FIRST_INTRA = 6000000
00195 integer, parameter :: MPI_COMM_FIRST_RESVD = 7000000
00196 integer, parameter :: MPI_COMM_WORLD = 9000000
00197 integer, parameter :: MPI_MAX_COMM_WORLDS = 8
00198 integer :: MPI_COMM_UNIVERSE(1:MPI_MAX_COMM_WORLDS)
00199
00200 integer, parameter :: MPI_INFO_ENV = 0
00201 integer, parameter :: AMPI_INFO_LB_SYNC = 1
00202 integer, parameter :: AMPI_INFO_LB_ASYNC = 2
00203 integer, parameter :: AMPI_INFO_CHKPT_IN_MEMORY = 3
00204
00205 double precision, external :: MPI_WTIME
00206 double precision, external :: MPI_WTICK
00207
00208 integer, parameter :: MPI_OP_NULL = -1
00209 integer, parameter :: MPI_MAX = 0
00210 integer, parameter :: MPI_MIN = 1
00211 integer, parameter :: MPI_SUM = 2
00212 integer, parameter :: MPI_PROD = 3
00213 integer, parameter :: MPI_LAND = 4
00214 integer, parameter :: MPI_BAND = 5
00215 integer, parameter :: MPI_LOR = 6
00216 integer, parameter :: MPI_BOR = 7
00217 integer, parameter :: MPI_LXOR = 8
00218 integer, parameter :: MPI_BXOR = 9
00219 integer, parameter :: MPI_MAXLOC = 10
00220 integer, parameter :: MPI_MINLOC = 11
00221 integer, parameter :: MPI_REPLACE = 12
00222 integer, parameter :: MPI_NO_OP = 13
00223
00224 integer, parameter :: MPI_ADDRESS_KIND = 8
00225 integer, parameter :: MPI_COUNT_KIND = MPI_ADDRESS_KIND
00226 integer, parameter :: MPI_OFFSET_KIND = 8
00227
00228 integer, parameter :: MPI_BSEND_OVERHEAD = 1
00229
00230 integer, parameter :: MPI_MAX_OBJECT_NAME = 255
00231 integer, parameter :: MPI_MAX_INFO_KEY = 255
00232 integer, parameter :: MPI_MAX_INFO_VAL = 1024
00233
00234 integer, parameter :: MPI_LOCK_SHARED = 54
00235 integer, parameter :: MPI_LOCK_EXCLUSIVE = 55
00236
00237 integer, parameter :: MPI_WIN_NULL = -1
00238
00239 integer, parameter :: MPI_WIN_FLAVOR_CREATE = 1
00240 integer, parameter :: MPI_WIN_FLAVOR_ALLOCATE = 2
00241 integer, parameter :: MPI_WIN_FLAVOR_DYNAMIC = 3
00242 integer, parameter :: MPI_WIN_FLAVOR_SHARED = 4
00243
00244 integer, parameter :: MPI_WIN_UNIFIED = 0
00245 integer, parameter :: MPI_WIN_SEPARATE = 1
00246
00247 integer, parameter :: MPI_MODE_NOCHECK = 1
00248 integer, parameter :: MPI_MODE_NOPRECEDE = 2
00249 integer, parameter :: MPI_MODE_NOPUT = 4
00250 integer, parameter :: MPI_MODE_NOSTORE = 8
00251 integer, parameter :: MPI_MODE_NOSUCCEED = 16
00252
00253 logical, parameter :: MPI_SUBARRAYS_SUPPORTED = .FALSE.
00254 logical, parameter :: MPI_ASYNC_PROTECTS_NONBLOCKING = .FALSE.
00255
00256 integer(KIND=MPI_ADDRESS_KIND), external :: MPI_AINT_ADD
00257 integer(KIND=MPI_ADDRESS_KIND), external :: MPI_AINT_DIFF
00258
00259 integer, parameter :: MPI_MESSAGE_NULL = -1
00260 integer, parameter :: MPI_MESSAGE_NO_PROC = -2
00261
00262 include 'mpiof.h'
1.5.5