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_MAX
 28:        parameter (MPI_MAX=0)
 29:        integer MPI_MIN
 30:        parameter (MPI_MIN=0)

 32:        integer MPI_PACKED
 33:        parameter (MPI_PACKED=0)
 34:        integer MPI_ANY_SOURCE
 35:        parameter (MPI_ANY_SOURCE=0)
 36:        integer MPI_ANY_TAG
 37:        parameter (MPI_ANY_TAG=0)
 38:        integer MPI_STATUS_SIZE
 39:        parameter (MPI_STATUS_SIZE=4)
 40:        integer MPI_UNDEFINED
 41:        parameter (MPI_UNDEFINED=-32766)
 42:        INTEGER MPI_INFO_NULL
 43:        PARAMETER (MPI_INFO_NULL=469762048)


 46:        integer MPI_REQUEST_NULL
 47:        parameter (MPI_REQUEST_NULL=0)
 48:        integer MPI_MINLOC
 49:        parameter (MPI_MINLOC=0)

 51:        INTEGER MPI_SOURCE,MPI_TAG,MPI_ERROR
 52:        PARAMETER(MPI_SOURCE=2,MPI_TAG=3,MPI_ERROR=4)

 54: 
 55: !     Data Types. Same Values used in mpi.c
 56:        integer MPI_INTEGER,MPI_LOGICAL
 57:        integer MPI_REAL,MPI_DOUBLE_PRECISION
 58:        integer MPI_COMPLEX, MPI_CHARACTER
 59:        integer MPI_2INTEGER
 60:        integer MPI_DOUBLE_COMPLEX
 61:        integer MPI_INTEGER4
 62:        integer MPI_INTEGER8
 63:        integer MPI_2DOUBLE_PRECISION

 65:        parameter (MPI_INTEGER=0)
 66:        parameter (MPI_LOGICAL=0)
 67:        parameter (MPI_REAL=1)
 68:        parameter (MPI_DOUBLE_PRECISION=2)
 69:        parameter (MPI_COMPLEX=3)
 70:        parameter (MPI_CHARACTER=4)
 71:        parameter (MPI_2INTEGER=5)
 72:        parameter (MPI_DOUBLE_COMPLEX=6)
 73:        parameter (MPI_INTEGER4=7)
 74:        parameter (MPI_INTEGER8=8)
 75:        parameter (MPI_2DOUBLE_PRECISION=9)

 77:        integer MPI_MAXLOC
 78:        parameter (MPI_MAXLOC=5)

 80:        integer MPI_MAX_PROCESSOR_NAME
 81:        parameter (MPI_MAX_PROCESSOR_NAME=128-1)