Actual source code: mpif.h

  1: !
  2: !

  4: !     Trying to provide as little support for fortran code in petsc as needed

  6: !     External objects outside of MPI calls
  7:        integer MPI_COMM_WORLD
  8:        parameter (MPI_COMM_WORLD = 1)
  9:        integer MPI_COMM_SELF
 10:        parameter (MPI_COMM_SELF = 2)
 11:        integer  MPI_COMM_NULL
 12:        parameter (MPI_COMM_NULL = 0)
 13:        integer MPI_SUCCESS
 14:        parameter (MPI_SUCCESS = 0)
 15:        integer MPI_IDENT
 16:        parameter (MPI_IDENT = 0)
 17:        integer MPI_UNEQUAL
 18:        parameter (MPI_UNEQUAL = 3)
 19:        integer MPI_KEYVAL_INVALID
 20:        parameter (MPI_KEYVAL_INVALID = 0)
 21:        integer MPI_ERR_UNKNOWN
 22:        parameter (MPI_ERR_UNKNOWN = 18)
 23:        integer MPI_ERR_INTERN
 24:        parameter (MPI_ERR_INTERN = 21)
 25:        integer MPI_SUM
 26:        parameter (MPI_SUM=0)
 27:        integer MPI_STATUS_SIZE
 28:        parameter (MPI_STATUS_SIZE=4)
 29:        integer MPI_UNDEFINED
 30:        parameter (MPI_UNDEFINED=-32766)

 32:        INTEGER MPI_SOURCE,MPI_TAG,MPI_ERROR
 33:        PARAMETER(MPI_SOURCE=2,MPI_TAG=3,MPI_ERROR=4)

 35: 
 36: !     Data Types. Same Values used in mpi.c
 37:        integer MPI_INTEGER,MPI_REAL,MPI_DOUBLE_PRECISION
 38:        integer MPI_COMPLEX, MPI_CHARACTER

 40:        parameter (MPI_INTEGER=0)
 41:        parameter (MPI_REAL=1)
 42:        parameter (MPI_DOUBLE_PRECISION=2)
 43:        parameter (MPI_COMPLEX=3)
 44:        parameter (MPI_CHARACTER=4)