parameter(MPI_SOURCE=1)
parameter(MPI_TAG=2)
parameter(MPI_ERROR=3)
- parameter(MPI_VERSION=1)
- parameter(MPI_SUBVERSION=1)
+ parameter(MPI_VERSION=2)
+ parameter(MPI_SUBVERSION=2)
parameter(MPI_LOCK_EXCLUSIVE=1)
parameter(MPI_LOCK_SHARED=2)
integer MPI_MODE_NOSTORE, MPI_MODE_NOPUT, MPI_MODE_NOPRECEDE
parameter(MPI_STATUS_SIZE=4)
! These should be ordered as in smpi_f77.c
- integer MPI_IN_PLACE, MPI_BOTTOM
- integer MPI_STATUS_IGNORE, MPI_STATUSES_IGNORE
- common /smpi/ MPI_IN_PLACE, MPI_BOTTOM
- common /smpi/ MPI_STATUS_IGNORE, MPI_STATUSES_IGNORE
+
+ integer MPI_IN_PLACE
+ parameter(MPI_IN_PLACE=-100)
+ integer MPI_BOTTOM
+ parameter(MPI_BOTTOM=-200)
+ integer MPI_STATUS_IGNORE
+ parameter(MPI_STATUS_IGNORE=-300)
+ integer MPI_STATUSES_IGNORE
+ parameter(MPI_STATUSES_IGNORE=-400)
integer MPI_REQUEST_NULL
parameter(MPI_REQUEST_NULL=-1)