Simple Fortran Example - 2

• if (rank .eq. 0) then

• do 10, i=1, 10

• data(i) = i

• 10 continue

• call MPI_SEND( data, 10, MPI_DOUBLE_PRECISION,

• + dest, 2001, MPI_COMM_WORLD, ierr)

• else if (rank .eq. dest) then

• tag = MPI_ANY_TAG

• source = MPI_ANY_SOURCE

• call MPI_RECV( data, 10, MPI_DOUBLE_PRECISION,

• + source, tag, MPI_COMM_WORLD,

• + status, ierr)

Notes: