parameter(MPI_TAG_LB=0)
parameter(MPI_VERSION=1)
parameter(MPI_SUBVERSION=1)
+ 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)
integer MPI_SUCCESS, MPI_ERR_COMM, MPI_ERR_ARG, MPI_ERR_TYPE
integer MPI_ERR_REQUEST, MPI_ERR_INTERN, MPI_ERR_COUNT
INTEGER MPI_ADDRESS_KIND, MPI_OFFSET_KIND
PARAMETER (MPI_ADDRESS_KIND=@MPI_ADDRESS_SIZE@)
PARAMETER (MPI_OFFSET_KIND=@MPI_ADDRESS_SIZE@)
-
- INTEGER MPI_MODE_NOPRECEDE
- PARAMETER (MPI_MODE_NOPRECEDE=8192)
integer MPI_COMBINER_NAMED, MPI_COMBINER_DUP
integer MPI_COMBINER_CONTIGUOUS, MPI_COMBINER_VECTOR
parameter(MPI_ORDER_FORTRAN=0)
external MPI_INIT, MPI_FINALIZE, MPI_ABORT
- external MPI_COMM_RANK, MPI_COMM_SIZE, MPI_COMM_DUP, MPI_COMM_SPLIT
- external MPI_SEND_INIT, MPI_ISEND, MPI_SEND
+ external MPI_COMM_RANK, MPI_COMM_SIZE, MPI_COMM_DUP
+ external MPI_SEND_INIT, MPI_ISEND, MPI_SEND, MPI_COMM_SPLIT
external MPI_RECV_INIT, MPI_IRECV, MPI_RECV
external MPI_START, MPI_STARTALL
external MPI_WAIT, MPI_WAITANY, MPI_WAITALL