1 | call MPI_INIT(mpierr) -- initialize |
2 | call MPI_COMM_RANK (comm,rank,mpierr) -- find processor label (rank) in group |
3 | call MPI_COMM_SIZE(comm,size,mpierr) -- find total number of processors |
4 | call MPI_SEND (sndbuf,count,datatype,dest,tag,comm,mpierr) -- send a message |
5 | call MPI_RECV (recvbuf,count,datatype,source,tag,comm,status,mpierr) -- receive a message |
6 | call MPI_FINALIZE(mpierr) -- End Up |