/usr/lib/petscdir/3.7.7/x86_64-linux-gnu-real-debug/include/petsc/mpiuni/mpif.h is in libpetsc3.7.7-dbg 3.7.7+dfsg1-2build5.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 | !
!
! Trying to provide as little support for fortran code in petsc as needed
! External objects outside of MPI calls
integer MPI_COMM_WORLD
parameter (MPI_COMM_WORLD = 2)
integer MPI_COMM_SELF
parameter (MPI_COMM_SELF = 1)
integer MPI_COMM_NULL
parameter (MPI_COMM_NULL = 0)
integer MPI_SUCCESS
parameter (MPI_SUCCESS = 0)
integer MPI_IDENT
parameter (MPI_IDENT = 0)
integer MPI_UNEQUAL
parameter (MPI_UNEQUAL = 3)
integer MPI_KEYVAL_INVALID
parameter (MPI_KEYVAL_INVALID = 0)
integer MPI_ERR_UNKNOWN
parameter (MPI_ERR_UNKNOWN = 18)
integer MPI_ERR_INTERN
parameter (MPI_ERR_INTERN = 21)
integer MPI_SUM
parameter (MPI_SUM=0)
integer MPI_MAX
parameter (MPI_MAX=0)
integer MPI_MIN
parameter (MPI_MIN=0)
integer MPI_PACKED
parameter (MPI_PACKED=0)
integer MPI_ANY_SOURCE
parameter (MPI_ANY_SOURCE=0)
integer MPI_ANY_TAG
parameter (MPI_ANY_TAG=0)
integer MPI_STATUS_SIZE
parameter (MPI_STATUS_SIZE=4)
integer MPI_UNDEFINED
parameter (MPI_UNDEFINED=-32766)
INTEGER MPI_INFO_NULL
PARAMETER (MPI_INFO_NULL=469762048)
integer MPI_REQUEST_NULL
parameter (MPI_REQUEST_NULL=0)
INTEGER MPI_SOURCE,MPI_TAG,MPI_ERROR
PARAMETER(MPI_SOURCE=2,MPI_TAG=3,MPI_ERROR=4)
! Data Types. Same Values used in mpi.c
integer MPI_INTEGER,MPI_LOGICAL
integer MPI_REAL,MPI_DOUBLE_PRECISION
integer MPI_COMPLEX, MPI_CHARACTER
integer MPI_2INTEGER
integer MPI_DOUBLE_COMPLEX
integer MPI_INTEGER4
integer MPI_INTEGER8
integer MPI_2DOUBLE_PRECISION
integer MPI_REAL4,MPI_REAL8
!
! These should match the values in mpi.h many below are wrong
!
parameter (MPI_INTEGER=262148)
parameter (MPI_LOGICAL=262148)
parameter (MPI_REAL=65540)
parameter (MPI_REAL4=65540)
parameter (MPI_DOUBLE_PRECISION=65544)
parameter (MPI_REAL8=65544)
parameter (MPI_COMPLEX=131088)
parameter (MPI_CHARACTER=196609)
parameter (MPI_2INTEGER=5)
parameter (MPI_DOUBLE_COMPLEX=6)
parameter (MPI_INTEGER4=7)
parameter (MPI_INTEGER8=8)
parameter (MPI_2DOUBLE_PRECISION=9)
integer MPI_MAXLOC,MPI_MINLOC
parameter (MPI_MAXLOC=5)
parameter (MPI_MINLOC=6)
integer MPI_MAX_PROCESSOR_NAME
parameter (MPI_MAX_PROCESSOR_NAME=128-1)
!
! some parameters require common blocks?
!
integer MPI_IN_PLACE
common /MPIUNIPRIV/ MPI_IN_PLACE
save /MPIUNIPRIV/
|