1 | integer status(MPI_STATUS_SIZE) An array to store status |
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 anmy message tag |
9 | call MPI_RECV (recvbuf,count,datatype,source,tag,comm,status,mpierr) |
10 | Note source and tag can be wild-carded |