parameter(MPI_COMM_SELF=-2)
parameter(MPI_COMM_WORLD=0)
+ integer MPI_GROUP_NULL, MPI_GROUP_EMPTY
+ parameter(MPI_GROUP_NULL=-1)
+ parameter(MPI_GROUP_EMPTY=-2)
+
! This should be equal to the number of int fields in MPI_Status
integer MPI_STATUS_SIZE, MPI_STATUSES_IGNORE
parameter(MPI_STATUS_SIZE=4)
parameter(MPI_BAND=9)
parameter(MPI_BOR=10)
parameter(MPI_BXOR=11)
+
+ INTEGER MPI_ADDRESS_KIND, MPI_OFFSET_KIND
+ PARAMETER (MPI_ADDRESS_KIND=8)
+ PARAMETER (MPI_OFFSET_KIND=8)
+
+ INTEGER MPI_MODE_NOPRECEDE
+ PARAMETER (MPI_MODE_NOPRECEDE=8192)
external MPI_INIT, MPI_FINALIZE, MPI_ABORT
external MPI_COMM_RANK, MPI_COMM_SIZE, MPI_COMM_DUP, MPI_COMM_SPLIT