- external MPI_INIT, MPI_FINALIZE, MPI_ABORT,
- > MPI_COMM_RANK, MPI_COMM_SIZE, MPI_COMM_DUP, MPI_COMM_SPLIT
- > MPI_SEND_INIT, MPI_ISEND, MPI_SEND,
- > MPI_RECV_INIT, MPI_IRECV, MPI_RECV,
- > MPI_START, MPI_STARTALL,
- > MPI_WAIT, MPI_WAITANY, MPI_WAITALL,
- > MPI_BCAST, MPI_BARRIER, MPI_REDUCE, MPI_ALLREDUCE,
- > MPI_SCATTER, MPI_GATHER, MPI_ALLGATHER, MPI_SCAN,
- > MPI_ALLTOALL
+ parameter( MPI_COMBINER_NAMED=0)
+ parameter( MPI_COMBINER_DUP=1)
+ parameter( MPI_COMBINER_CONTIGUOUS=2)
+ parameter( MPI_COMBINER_VECTOR=3)
+ parameter( MPI_COMBINER_HVECTOR_INTEGER=4)
+ parameter( MPI_COMBINER_HVECTOR=5)
+ parameter( MPI_COMBINER_INDEXED=6)
+ parameter( MPI_COMBINER_HINDEXED_INTEGER=7)
+ parameter( MPI_COMBINER_HINDEXED=8)
+ parameter( MPI_COMBINER_INDEXED_BLOCK=9)
+ parameter( MPI_COMBINER_STRUCT_INTEGER=10)
+ parameter( MPI_COMBINER_STRUCT=11)
+ parameter( MPI_COMBINER_SUBARRAY=12)
+ parameter( MPI_COMBINER_DARRAY=13)
+ parameter( MPI_COMBINER_F90_REAL=14)
+ parameter( MPI_COMBINER_F90_COMPLEX=15)
+ parameter( MPI_COMBINER_F90_INTEGER=16)
+ parameter( MPI_COMBINER_RESIZED=17)
+ parameter( MPI_COMBINER_HINDEXED_BLOCK=18)
+
+ integer MPI_ORDER_C, MPI_ORDER_FORTRAN
+ parameter(MPI_ORDER_C=1)
+ 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_RECV_INIT, MPI_IRECV, MPI_RECV
+ external MPI_START, MPI_STARTALL
+ external MPI_WAIT, MPI_WAITANY, MPI_WAITALL
+ external MPI_BCAST, MPI_BARRIER, MPI_REDUCE, MPI_ALLREDUCE
+ external MPI_SCATTER, MPI_GATHER, MPI_ALLGATHER, MPI_SCAN
+ external MPI_ALLTOALL, MPI_GATHERV, MPI_SENDRECV