Actual source code: mpif.h
petsc-3.10.5 2019-03-28
Report Typos and Errors

      1: !
      2: !     Trying to provide as little support for fortran code in petsc as needed
      3: !
      4: #include "petsc/mpiuni/mpiunifdef.h"
      5: !
      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_IDENT
     14:        parameter (MPI_IDENT = 0)
     15:        integer MPI_UNEQUAL
     16:        parameter (MPI_UNEQUAL = 3)
     17:        integer MPI_KEYVAL_INVALID
     18:        parameter (MPI_KEYVAL_INVALID = 0)
     19:        integer MPI_SUCCESS
     20:        parameter (MPI_SUCCESS = 0)
     21:        integer MPI_ERR_OTHER
     22:        parameter (MPI_ERR_OTHER = 17)
     23:        integer MPI_ERR_UNKNOWN
     24:        parameter (MPI_ERR_UNKNOWN = 18)
     25:        integer MPI_ERR_INTERN
     26:        parameter (MPI_ERR_INTERN = 21)

     28:        integer MPI_PACKED
     29:        parameter (MPI_PACKED=0)
     30:        integer MPI_ANY_SOURCE
     31:        parameter (MPI_ANY_SOURCE=2)
     32:        integer MPI_ANY_TAG
     33:        parameter (MPI_ANY_TAG=-1)
     34:        integer MPI_UNDEFINED
     35:        parameter (MPI_UNDEFINED=-32766)
     36:        INTEGER MPI_INFO_NULL
     37:        PARAMETER (MPI_INFO_NULL=0)

     40:        integer MPI_REQUEST_NULL
     41:        parameter (MPI_REQUEST_NULL=0)

     43:        integer MPI_STATUS_SIZE
     44:        parameter (MPI_STATUS_SIZE=3)
     45:        INTEGER MPI_SOURCE,MPI_TAG,MPI_ERROR
     46:        PARAMETER(MPI_SOURCE=1,MPI_TAG=2,MPI_ERROR=3)

     48:        integer MPI_STATUS_IGNORE
     49:        parameter (MPI_STATUS_IGNORE=0)

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

     63: !
     64: !  These should match the values in mpi.h many below are wrong
     65: !
     66:        parameter (MPI_INTEGER=4194564)
     67:        parameter (MPI_DOUBLE_PRECISION=1048840)
     68:        parameter (MPI_COMPLEX16=2097424)
     69:        parameter (MPI_LOGICAL=x'400104')
     70:        parameter (MPI_REAL=x'100104')
     71:        parameter (MPI_REAL4=x'100104')
     72:        parameter (MPI_REAL8=x'100108')
     73:        parameter (MPI_COMPLEX=x'200108')
     74:        parameter (MPI_CHARACTER=x'300101')
     75:        parameter (MPI_2INTEGER=x'e00108')
     76:        parameter (MPI_DOUBLE_COMPLEX=x'200110')
     77:        parameter (MPI_INTEGER4=x'400104')
     78:        parameter (MPI_INTEGER8=x'400108')
     79:        parameter (MPI_2DOUBLE_PRECISION=x'100208')

     81:        integer MPI_SUM
     82:        parameter (MPI_SUM=1)
     83:        integer MPI_MAX
     84:        parameter (MPI_MAX=2)
     85:        integer MPI_MIN
     86:        parameter (MPI_MIN=3)
     87:        integer MPI_MAXLOC
     88:        parameter (MPI_MAXLOC=12)
     89:        integer MPI_MINLOC
     90:        parameter (MPI_MINLOC=13)

     92:        integer MPI_MAX_PROCESSOR_NAME
     93:        parameter (MPI_MAX_PROCESSOR_NAME=128-1)