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)