Actual source code: mpif.h

  1: !
  2: !     $Id: mpif.h,v 1.13 2000/05/26 13:59:56 balay Exp $
  3: !

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

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

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

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

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