# L-5 MCS 572 Fri 6 Sep 2024 : mpi_point2point.jl

"""
Illustration of point-to-point communication.
Run at the command prompt as
mpiexecjl -n 2 julia mpi_point2point.jl
"""

using MPI
MPI.Init()

comm = MPI.COMM_WORLD
myid = MPI.Comm_rank(comm)

if myid == 0
    data = Dict('a' => 7, 'b' => 3.14)
    println("$myid sends $data to 1")
    MPI.send(data, comm; dest=1, tag=11)
elseif myid == 1
    data = MPI.recv(comm; source=0, tag=11)
    println("$myid received $data from 0")
end