21.4.3. The Status Object

The MPI status object is defined in Fortran as follows:

integer, parameter :: MPI_STATUS_SIZE = 8 
type, bind(C) :: Status 
   integer  :: MPI_SOURCE 
   integer  :: MPI_TAG 
   integer  :: MPI_ERROR 
   integer  :: MPI_INTERNAL(5) 
end type Status 

The following constants can be specified:

#define MPI_F_STATUS_SIZE 8 
#define MPI_F_SOURCE      0 
#define MPI_F_TAG         1 
#define MPI_F_ERROR       2