Actual source code: mpif.h
petsc-3.7.1 2016-05-15
Report Typos and Errors

      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 = 2)
      9:        integer MPI_COMM_SELF
     10:        parameter (MPI_COMM_SELF = 1)
     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)

     49:        INTEGER MPI_SOURCE,MPI_TAG,MPI_ERROR
     50:        PARAMETER(MPI_SOURCE=2,MPI_TAG=3,MPI_ERROR=4)

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

     64: !
     65: !  These should match the values in mpi.h many below are wrong
     66: !
     67:        parameter (MPI_INTEGER=262148)
     68:        parameter (MPI_LOGICAL=262148)
     69:        parameter (MPI_REAL=65540)
     70:        parameter (MPI_REAL4=65540)
     71:        parameter (MPI_DOUBLE_PRECISION=65544)
     72:        parameter (MPI_REAL8=65544)
     73:        parameter (MPI_COMPLEX=131088)
     74:        parameter (MPI_CHARACTER=196609)
     75:        parameter (MPI_2INTEGER=5)
     76:        parameter (MPI_DOUBLE_COMPLEX=6)
     77:        parameter (MPI_INTEGER4=7)
     78:        parameter (MPI_INTEGER8=8)
     79:        parameter (MPI_2DOUBLE_PRECISION=9)

     81:        integer MPI_MAXLOC,MPI_MINLOC
     82:        parameter (MPI_MAXLOC=5)
     83:        parameter (MPI_MINLOC=6)

     85:        integer MPI_MAX_PROCESSOR_NAME
     86:        parameter (MPI_MAX_PROCESSOR_NAME=128-1)

     88: !
     89: !  some parameters require common blocks?
     90: !
     91:        integer MPI_IN_PLACE
     92:        common /MPIUNIPRIV/ MPI_IN_PLACE
     93:        save /MPIUNIPRIV/