+ integer MPI_MODE_NOSTORE, MPI_MODE_NOPUT, MPI_MODE_NOPRECEDE
+ integer MPI_MODE_NOSUCCEED, MPI_MODE_NOCHECK
+ parameter(MPI_MODE_NOSTORE=1)
+ parameter(MPI_MODE_NOPUT=2)
+ parameter(MPI_MODE_NOPRECEDE=4)
+ parameter(MPI_MODE_NOSUCCEED=8)
+ parameter(MPI_MODE_NOCHECK=16)