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

fix(mpi_collectives): prevent potential deadlock in MPI_Comm_dup example

Browse Source
This commit is contained in:
Jules van der Toorn
2025-09-16 17:00:18 +02:00
parent 62fcf5ae2e
commit eb8cd31240
1 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
notebooks/mpi_collectives.ipynb
View File

@@ -771,9 +771,11 @@
" rank = MPI.Comm_rank(comm)\n", " rank = MPI.Comm_rank(comm)\n",
" if rank == 2\n", " if rank == 2\n",
" sndbuf = [2]\n", " sndbuf = [2]\n",
" MPI.Send(sndbuf, comm2; dest=3, tag=0)\n", " req1 = MPI.Isend(sndbuf, comm2; dest=3, tag=0)\n",
" sndbuf = [1]\n", " sndbuf = [1]\n",
" MPI.Send(sndbuf, comm; dest=3, tag=0)\n", " req2 = MPI.Isend(sndbuf, comm; dest=3, tag=0)\n",
" MPI.Wait(req2)\n",
" MPI.Wait(req1)\n",
" end\n", " end\n",
" if rank == 3\n", " if rank == 3\n",
" rcvbuf = zeros(Int,1)\n", " rcvbuf = zeros(Int,1)\n",