+ 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)
+
+! 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=3)
+ 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_REAL4=10)
+ parameter(MPI_REAL8=11)
+ parameter(MPI_DOUBLE_PRECISION=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)