seb/XM_40017
1
0
Fork 0
mirror of https://github.com/fverdugo/XM_40017.git synced 2025-12-30 02:38:31 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Adding MPI p2p notebook

Browse Source
This commit is contained in:
Francesc Verdugo
2024-08-20 13:51:32 +02:00
parent 19ec76a80f
commit adea887862
3 changed files with 431 additions and 691 deletions
Download Patch File Download Diff File Expand all files Collapse all files

61
docs/src/solutions_for_all_notebooks.md
View File

@@ -81,36 +81,6 @@ msg = 2
@fetchfrom 2 work(msg)
```
## MPI (Point-to-point)
### Exercise 1
```julia
using MPI
MPI.Init()
comm = MPI.Comm_dup(MPI.COMM_WORLD)
rank = MPI.Comm_rank(comm)
nranks = MPI.Comm_size(comm)
buffer = Ref(0)
if rank == 0
msg = 2
buffer[] = msg
println("msg = $(buffer[])")
MPI.Send(buffer,comm;dest=rank+1,tag=0)
MPI.Recv!(buffer,comm;source=nranks-1,tag=0)
println("msg = $(buffer[])")
else
dest = if (rank != nranks-1)
rank+1
else
0
end
MPI.Recv!(buffer,comm;source=rank-1,tag=0)
buffer[] += 1
println("msg = $(buffer[])")
MPI.Send(buffer,comm;dest,tag=0)
end
```
## Matrix-matrix multiplication
@@ -161,6 +131,37 @@ end
end
```
## MPI (Point-to-point)
### Exercise 2
```julia
using MPI
MPI.Init()
comm = MPI.COMM_WORLD
rank = MPI.Comm_rank(comm)
nranks = MPI.Comm_size(comm)
buffer = Ref(0)
if rank == 0
msg = 2
buffer[] = msg
println("msg = $(buffer[])")
MPI.Send(buffer,comm;dest=rank+1,tag=0)
MPI.Recv!(buffer,comm;source=nranks-1,tag=0)
println("msg = $(buffer[])")
else
dest = if (rank != nranks-1)
rank+1
else
0
end
MPI.Recv!(buffer,comm;source=rank-1,tag=0)
buffer[] += 1
println("msg = $(buffer[])")
MPI.Send(buffer,comm;dest,tag=0)
end
```
## Jacobi method
### Exercise 1