- integer MPI_AINT, MPI_OFFSET, MPI_COUNT
- integer MPI_REAL16, MPI_COMPLEX8,MPI_COMPLEX16,MPI_COMPLEX32
- integer MPI_PACKED
- parameter(MPI_DATATYPE_NULL=-1)
- parameter(MPI_BYTE=0)
- parameter(MPI_CHARACTER=1)
- parameter(MPI_LOGICAL=2)
- parameter(MPI_INTEGER=3)
- parameter(MPI_INTEGER1=4)
- parameter(MPI_INTEGER2=5)
- parameter(MPI_INTEGER4=6)
- parameter(MPI_INTEGER8=7)
- parameter(MPI_REAL=8)
- parameter(MPI_REAL4=9)
- parameter(MPI_REAL8=10)
- parameter(MPI_DOUBLE_PRECISION=11)
- parameter(MPI_COMPLEX=12)
- parameter(MPI_DOUBLE_COMPLEX=13)
- parameter(MPI_2INTEGER=14)
- parameter(MPI_LOGICAL1=15)
- parameter(MPI_LOGICAL2=16)
- parameter(MPI_LOGICAL4=17)
- parameter(MPI_LOGICAL8=18)
- parameter(MPI_2REAL=19)
- parameter(MPI_2DOUBLE_PRECISION=19)
- parameter(MPI_AINT=20)
- parameter(MPI_OFFSET=21)
- parameter(MPI_COUNT=22)
- parameter(MPI_REAL16=23)
- parameter(MPI_COMPLEX8=24)
- parameter(MPI_COMPLEX16=25)
- parameter(MPI_COMPLEX32=26)
- parameter(MPI_PACKED=27)
-
-! These should be ordered as in smpi_f77.c
- integer MPI_OP_NULL,MPI_MAX, MPI_MIN, MPI_MAXLOC, MPI_MINLOC
+ integer MPI_AINT, MPI_OFFSET, MPI_COUNT, MPI_REAL16
+ integer MPI_PACKED, MPI_COMPLEX8, MPI_COMPLEX16, MPI_COMPLEX32
+ integer MPI_DOUBLE, MPI_INT, MPI_FLOAT
+
+ integer MPI_MAX, MPI_MIN, MPI_MAXLOC, MPI_MINLOC