1 | integer status(MPI_STATUS_SIZE) An array to store status of received information |
2 | integer mpierr, count, datatype, source, tag, comm |
3 | integer recvbuf(100) |
4 | count = 100 |
5 | datatype = MPI_REAL |
6 | comm = MPI_COMM_WORLD |
7 | source = MPI_ANY_SOURCE accept any source processor |
8 | tag = MPI_ANY_TAG accept any message tag |
9 |
call MPI_RECV (recvbuf, count, datatype, source, tag, comm, status, mpierr)
|