X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/3080c6b0d097d6b3b7d5b3dda0592154ce438f64..8bd488d2f6b7042f4a7dd2879ce490f127b16ec2:/include/smpi/mpif.h.in diff --git a/include/smpi/mpif.h.in b/include/smpi/mpif.h.in index 4e73752881..0c07bbb188 100644 --- a/include/smpi/mpif.h.in +++ b/include/smpi/mpif.h.in @@ -39,6 +39,13 @@ parameter(MPI_TAG_LB=0) parameter(MPI_VERSION=1) parameter(MPI_SUBVERSION=1) + integer MPI_MODE_NOSTORE, MPI_MODE_NOPUT, MPI_MODE_NOPRECEDE + integer MPI_MODE_NOSUCCEED, MPI_MODE_NOCHECK + parameter(MPI_MODE_NOSTORE=1) + parameter(MPI_MODE_NOPUT=2) + parameter(MPI_MODE_NOPRECEDE=4) + parameter(MPI_MODE_NOSUCCEED=8) + parameter(MPI_MODE_NOCHECK=16) integer MPI_SUCCESS, MPI_ERR_COMM, MPI_ERR_ARG, MPI_ERR_TYPE integer MPI_ERR_REQUEST, MPI_ERR_INTERN, MPI_ERR_COUNT @@ -84,7 +91,7 @@ parameter(MPI_IO=0) integer MPI_ROOT, MPI_INFO_NULL,MPI_COMM_TYPE_SHARED parameter(MPI_ROOT=0) - parameter(MPI_INFO_NULL=-1) + parameter(MPI_INFO_NULL=0) parameter(MPI_COMM_TYPE_SHARED=1) ! These should be ordered as in smpi_f77.c @@ -130,6 +137,7 @@ integer MPI_LOGICAL8, MPI_2REAL, MPI_2DOUBLE_PRECISION 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) @@ -159,6 +167,7 @@ parameter(MPI_COMPLEX8=24) parameter(MPI_COMPLEX16=25) parameter(MPI_COMPLEX32=26) + parameter(MPI_PACKED=27) @@ -183,9 +192,6 @@ INTEGER MPI_ADDRESS_KIND, MPI_OFFSET_KIND PARAMETER (MPI_ADDRESS_KIND=@MPI_ADDRESS_SIZE@) PARAMETER (MPI_OFFSET_KIND=@MPI_ADDRESS_SIZE@) - - INTEGER MPI_MODE_NOPRECEDE - PARAMETER (MPI_MODE_NOPRECEDE=8192) integer MPI_COMBINER_NAMED, MPI_COMBINER_DUP integer MPI_COMBINER_CONTIGUOUS, MPI_COMBINER_VECTOR