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