Chap 3 - Correction des constantes MPI en C

calculquebec · May 7, 2024 · 94049c5 · 94049c5
1 parent c683fc1
commit 94049c5
Showing 1 changed file with 14 additions and 14 deletions.
diff --git a/3-point-a-point.ipynb b/3-point-a-point.ipynb
@@ -122,10 +122,10 @@
     "\n",
     "```C\n",
     "if (proc == 2) {\n",
-    "    MPI_Send(&a, 1, MPI_INTEGER, 0, 746, MPI_COMM_WORLD);\n",
+    "    MPI_Send(&a, 1, MPI_INT, 0, 746, MPI_COMM_WORLD);\n",
     "}\n",
     "else if (proc == 0) {\n",
-    "    MPI_Recv(&b, 1, MPI_INTEGER, 2, 746, MPI_COMM_WORLD, &etat);\n",
+    "    MPI_Recv(&b, 1, MPI_INT, 2, 746, MPI_COMM_WORLD, &etat);\n",
     "}\n",
     "```"
    ]
@@ -170,12 +170,12 @@
     "\n",
     "```C\n",
     "if (proc == 0) {\n",
-    "    MPI_Ssend(&a, 1, MPI_INTEGER, 2, 10, MPI_COMM_WORLD);\n",
-    "    MPI_Recv( &b, 1, MPI_INTEGER, 2, 11, MPI_COMM_WORLD, &etat);\n",
+    "    MPI_Ssend(&a, 1, MPI_INT, 2, 10, MPI_COMM_WORLD);\n",
+    "    MPI_Recv( &b, 1, MPI_INT, 2, 11, MPI_COMM_WORLD, &etat);\n",
     "}\n",
     "else if (proc == 2) {\n",
-    "    MPI_Ssend(&b, 1, MPI_INTEGER, 0, 11, MPI_COMM_WORLD);\n",
-    "    MPI_Recv( &a, 1, MPI_INTEGER, 0, 10, MPI_COMM_WORLD, &etat);\n",
+    "    MPI_Ssend(&b, 1, MPI_INT, 0, 11, MPI_COMM_WORLD);\n",
+    "    MPI_Recv( &a, 1, MPI_INT, 0, 10, MPI_COMM_WORLD, &etat);\n",
     "}\n",
     "```\n",
     "\n",
@@ -202,12 +202,12 @@
     "\n",
     "```C\n",
     "if (proc == 0) {\n",
-    "    MPI_Ssend(&a, 1, MPI_INTEGER, 2, 10, MPI_COMM_WORLD);\n",
-    "    MPI_Recv( &b, 1, MPI_INTEGER, 2, 11, MPI_COMM_WORLD, &etat);\n",
+    "    MPI_Ssend(&a, 1, MPI_INT, 2, 10, MPI_COMM_WORLD);\n",
+    "    MPI_Recv( &b, 1, MPI_INT, 2, 11, MPI_COMM_WORLD, &etat);\n",
     "}\n",
     "else if (proc == 2) {\n",
-    "    MPI_Recv( &a, 1, MPI_INTEGER, 0, 10, MPI_COMM_WORLD, &etat);\n",
-    "    MPI_Ssend(&b, 1, MPI_INTEGER, 0, 11, MPI_COMM_WORLD);\n",
+    "    MPI_Recv( &a, 1, MPI_INT, 0, 10, MPI_COMM_WORLD, &etat);\n",
+    "    MPI_Ssend(&b, 1, MPI_INT, 0, 11, MPI_COMM_WORLD);\n",
     "}\n",
     "```\n",
     "\n",
@@ -252,12 +252,12 @@
     "\n",
     "```C\n",
     "if (proc == 0) {\n",
-    "    MPI_Isend(&a, 1, MPI_INTEGER, 2, 10, MPI_COMM_WORLD, &requete);\n",
-    "    MPI_Recv( &b, 1, MPI_INTEGER, 2, 11, MPI_COMM_WORLD, &etat);\n",
+    "    MPI_Isend(&a, 1, MPI_INT, 2, 10, MPI_COMM_WORLD, &requete);\n",
+    "    MPI_Recv( &b, 1, MPI_INT, 2, 11, MPI_COMM_WORLD, &etat);\n",
     "}\n",
     "else if (proc == 2) {\n",
-    "    MPI_Isend(&b, 1, MPI_INTEGER, 0, 11, MPI_COMM_WORLD, &requete);\n",
-    "    MPI_Recv( &a, 1, MPI_INTEGER, 0, 10, MPI_COMM_WORLD, &etat);\n",
+    "    MPI_Isend(&b, 1, MPI_INT, 0, 11, MPI_COMM_WORLD, &requete);\n",
+    "    MPI_Recv( &a, 1, MPI_INT, 0, 10, MPI_COMM_WORLD, &etat);\n",
     "}\n",
     "\n",
     "MPI_Wait(&requete, &etat);\n",