X-Git-Url: http://bilbo.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/2c8da4ee3fc790b28fce65acc6395f0baec1b1cf..a957a7eb7a096470feb367832c201b71b58ea51e:/include/smpi/mpif.h

diff --git a/include/smpi/mpif.h b/include/smpi/mpif.h
index 690380e673..88922f3ae9 100644
--- a/include/smpi/mpif.h
+++ b/include/smpi/mpif.h
@@ -1,5 +1,5 @@
 ! -*- fortran -*-
-! Copyright (c) 2010. The SimGrid Team.
+! Copyright (c) 2010, 2012-2013. The SimGrid Team.
 ! All rights reserved.
 
 ! This program is free software; you can redistribute it and/or modify it
@@ -111,14 +111,17 @@
 ! This should be equal to the number of int fields in MPI_Status
       integer MPI_STATUS_SIZE, MPI_STATUSES_IGNORE
       parameter(MPI_STATUS_SIZE=4)
-      parameter(MPI_STATUSES_IGNORE=0)
+      parameter(MPI_STATUSES_IGNORE=-1)
 
-      integer MPI_STATUS_IGNORE(MPI_STATUS_SIZE)
-      common/smpi/ MPI_STATUS_IGNORE
+      integer MPI_STATUS_IGNORE
+      parameter(MPI_STATUS_IGNORE=-1)
 
       integer MPI_REQUEST_NULL
       parameter(MPI_REQUEST_NULL=-1)
 
+      integer MPI_INTEGER_KIND
+      parameter(MPI_INTEGER_KIND=4)
+
 ! These should be ordered as in smpi_f77.c
       integer MPI_DATATYPE_NULL, MPI_BYTE, MPI_CHARACTER, MPI_LOGICAL
       integer MPI_INTEGER, MPI_INTEGER1, MPI_INTEGER2, MPI_INTEGER4