00001 integer, parameter :: MPI_SUCCESS =0
00002 integer, parameter :: MPI_ERR_BUFFER =1
00003 integer, parameter :: MPI_ERR_COUNT =2
00004 integer, parameter :: MPI_ERR_TYPE =3
00005 integer, parameter :: MPI_ERR_TAG =4
00006 integer, parameter :: MPI_ERR_COMM =5
00007 integer, parameter :: MPI_ERR_RANK =6
00008 integer, parameter :: MPI_ERR_REQUEST =7
00009 integer, parameter :: MPI_ERR_ROOT =8
00010 integer, parameter :: MPI_ERR_GROUP =9
00011 integer, parameter :: MPI_ERR_OP =10
00012 integer, parameter :: MPI_ERR_TOPOLOGY =11
00013 integer, parameter :: MPI_ERR_DIMS =12
00014 integer, parameter :: MPI_ERR_ARG =13
00015 integer, parameter :: MPI_ERR_UNKNOWN =14
00016 integer, parameter :: MPI_ERR_TRUNCATE =15
00017 integer, parameter :: MPI_ERR_OTHER =16
00018 integer, parameter :: MPI_ERR_INTERN =17
00019 integer, parameter :: MPI_ERR_IN_STATUS =18
00020 integer, parameter :: MPI_ERR_PENDING =19
00021 integer, parameter :: MPI_ERR_ACCESS =20
00022 integer, parameter :: MPI_ERR_AMODE =21
00023 integer, parameter :: MPI_ERR_ASSERT =22
00024 integer, parameter :: MPI_ERR_BAD_FILE =23
00025 integer, parameter :: MPI_ERR_BASE =24
00026 integer, parameter :: MPI_ERR_CONVERSION =25
00027 integer, parameter :: MPI_ERR_DISP =26
00028 integer, parameter :: MPI_ERR_DUP_DATAREP =27
00029 integer, parameter :: MPI_ERR_FILE_EXISTS =28
00030 integer, parameter :: MPI_ERR_FILE_IN_USE =29
00031 integer, parameter :: MPI_ERR_FILE =30
00032 integer, parameter :: MPI_ERR_INFO_KEY =31
00033 integer, parameter :: MPI_ERR_INFO_NOKEY =32
00034 integer, parameter :: MPI_ERR_INFO_VALUE =33
00035 integer, parameter :: MPI_ERR_INFO =34
00036 integer, parameter :: MPI_ERR_IO =35
00037 integer, parameter :: MPI_ERR_KEYVAL =36
00038 integer, parameter :: MPI_ERR_LOCKTYPE =37
00039 integer, parameter :: MPI_ERR_NAME =38
00040 integer, parameter :: MPI_ERR_NO_MEM =39
00041 integer, parameter :: MPI_ERR_NOT_SAME =40
00042 integer, parameter :: MPI_ERR_NO_SPACE =41
00043 integer, parameter :: MPI_ERR_NO_SUCH_FILE =42
00044 integer, parameter :: MPI_ERR_PORT =43
00045 integer, parameter :: MPI_ERR_QUOTA =44
00046 integer, parameter :: MPI_ERR_READ_ONLY =45
00047 integer, parameter :: MPI_ERR_RMA_CONFLICT =46
00048 integer, parameter :: MPI_ERR_RMA_SYNC =47
00049 integer, parameter :: MPI_ERR_SERVICE =48
00050 integer, parameter :: MPI_ERR_SIZE =49
00051 integer, parameter :: MPI_ERR_SPAWN =50
00052 integer, parameter :: MPI_ERR_UNSUPPORTED_DATAREP =51
00053 integer, parameter :: MPI_ERR_UNSUPPORTED_OPERATION =52
00054 integer, parameter :: MPI_ERR_WIN =53
00055 integer, parameter :: MPI_ERR_LASTCODE =53
00056
00057 integer, parameter :: MPI_ERRORS_ARE_FATAL =119
00058 integer, parameter :: MPI_ERRORS_RETURN =120
00059
00060 integer, parameter :: MPI_MAX_PROCESSOR_NAME = 256
00061 integer, parameter :: MPI_MAX_ERROR_STRING = 256
00062
00063 integer, parameter :: MPI_DATATYPE_NULL = -1
00064 integer, parameter :: MPI_DOUBLE_PRECISION = 0
00065 integer, parameter :: MPI_REAL8 = 0
00066 integer, parameter :: MPI_INTEGER = 1
00067 integer, parameter :: MPI_INTEGER4 = 1
00068 integer, parameter :: MPI_REAL = 2
00069 integer, parameter :: MPI_COMPLEX = 3
00070 integer, parameter :: MPI_LOGICAL = 4
00071 integer, parameter :: MPI_CHARACTER = 5
00072 integer, parameter :: MPI_BYTE = 6
00073 integer, parameter :: MPI_PACKED = 7
00074 integer, parameter :: MPI_2REAL = 21
00075 integer, parameter :: MPI_2DOUBLE_PRECISION = 22
00076 integer, parameter :: MPI_2INTEGER = 18
00077 integer, parameter :: MPI_LB = 23
00078 integer, parameter :: MPI_UB = 24
00079 integer, parameter :: MPI_DOUBLE_COMPLEX = 26
00080
00081
00082 integer, parameter :: MPI_PROC_NULL = -2
00083 integer, parameter :: MPI_ANY_SOURCE = -1
00084 integer, parameter :: MPI_ANY_TAG = -1
00085 integer, parameter :: MPI_REQUEST_NULL = -1
00086 integer, parameter :: MPI_GROUP_NULL = -1
00087 integer, parameter :: MPI_COMM_NULL = -1
00088 integer, parameter :: MPI_TYPE_NULL = -1
00089 integer, parameter :: MPI_KEYVAL_INVALID = -1
00090 integer, parameter :: MPI_INFO_NULL = -1
00091
00092 integer, pointer :: MPI_IN_PLACE
00093
00094 integer, parameter :: MPI_BOTTOM = 0
00095 integer, parameter :: MPI_UNDEFINED = -32766
00096
00097 integer, parameter :: MPI_IDENT = 0
00098 integer, parameter :: MPI_SIMILAR = 1
00099 integer, parameter :: MPI_UNEQUAL = 2
00100
00101 integer, parameter :: MPI_OP_NULL = 0
00102
00103 integer, parameter :: MPI_GRAPH = 1
00104 integer, parameter :: MPI_CART = 2
00105
00106 integer, parameter :: MPI_TAG_UB = -10
00107
00108 integer, parameter :: MPI_STATUS_SIZE=8
00109 integer, parameter :: MPI_TAG=1
00110 integer, parameter :: MPI_SOURCE=2
00111 integer, parameter :: MPI_COMM=3
00112
00113 integer, parameter :: MPI_COMM_FIRST_SPLIT = 1000000
00114 integer, parameter :: MPI_COMM_FIRST_GROUP = 2000000
00115 integer, parameter :: MPI_COMM_FIRST_CART = 3000000
00116 integer, parameter :: MPI_COMM_FIRST_GRAPH = 4000000
00117 integer, parameter :: MPI_COMM_FIRST_INTER = 5000000
00118 integer, parameter :: MPI_COMM_FIRST_INTRA = 6000000
00119 integer, parameter :: MPI_COMM_FIRST_RESVD = 7000000
00120 integer, parameter :: MPI_COMM_SELF = 8000000
00121 integer, parameter :: MPI_COMM_WORLD = 9000000
00122 integer, parameter :: MPI_MAX_COMM_WORLDS=8
00123 integer :: MPI_COMM_UNIVERSE(1:MPI_MAX_COMM_WORLDS)
00124
00125 ! integer, external :: MPI_Register
00126 double precision, external :: MPI_WTIME
00127 double precision, external :: MPI_WTICK
00128 integer, parameter :: MPI_MAX = 100
00129 integer, parameter :: MPI_MIN = 101
00130 integer, parameter :: MPI_SUM = 102
00131 integer, parameter :: MPI_PROD = 103
00132 integer, parameter :: MPI_LAND = 104
00133 integer, parameter :: MPI_BAND = 105
00134 integer, parameter :: MPI_LOR = 106
00135 integer, parameter :: MPI_BOR = 107
00136 integer, parameter :: MPI_LXOR = 108
00137 integer, parameter :: MPI_BXOR = 109
00138 integer, parameter :: MPI_MAXLOC = 110
00139 integer, parameter :: MPI_MINLOC = 111
00140 !
00141 integer, parameter :: MPI_OFFSET_KIND = 8
00142 integer, parameter :: MPI_ADDRESS_KIND = 8
00143