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)

 28:        INTEGER MPI_SOURCE,MPI_TAG,MPI_ERROR
 29:        PARAMETER(MPI_SOURCE=2,MPI_TAG=3,MPI_ERROR=4)

 31: 
 32: !     Data Types. Same Values used in mpi.c
 33:        integer MPI_INTEGER,MPI_REAL,MPI_DOUBLE_PRECISION
 34:        integer MPI_COMPLEX, MPI_CHARACTER

 36:        parameter (MPI_INTEGER=0)
 37:        parameter (MPI_REAL=1)
 38:        parameter (MPI_DOUBLE_PRECISION=2)
 39:        parameter (MPI_COMPLEX=3)
 40:        parameter (MPI_CHARACTER=4)