doc: fixing last problems of MPI_Pack

Signed-off-by: Nick Papior <[email protected]>

Author: zerothi

docs/man-openmpi/man3/MPI_Pack.3.rst

@@ -92,25 +92,22 @@ subsequently used for sending the packed message.
 
 .. code-block:: c
 
-       int position, i, j, a[2];
-       char buff[1000];
-
-       ....
-
-       MPI_Comm_rank(MPI_COMM_WORLD, &myrank);
-       if (myrank == 0)
-       {
-          / * SENDER CODE */
-
-       position = 0;
-         MPI_Pack(&i, 1, MPI_INT, buff, 1000, &position, MPI_COMM_WORLD);
-         MPI_Pack(&j, 1, MPI_INT, buff, 1000, &position, MPI_COMM_WORLD);
-         MPI_Send( buff, position, MPI_PACKED, 1, 0, MPI_COMM_WORLD);
-       }
-       else  /* RECEIVER CODE */
-         MPI_Recv( a, 2, MPI_INT, 0, 0, MPI_COMM_WORLD)
-
-       }
+   int myrank, position, i, j, a[2];
+   char buff[1000];
+
+   // ...
+
+   MPI_Comm_rank(MPI_COMM_WORLD, &myrank);
+   if (myrank == 0) {
+     /* SENDER CODE */
+     position = 0;
+     MPI_Pack(&i, 1, MPI_INT, buff, 1000, &position, MPI_COMM_WORLD);
+     MPI_Pack(&j, 1, MPI_INT, buff, 1000, &position, MPI_COMM_WORLD);
+     MPI_Send(buff, position, MPI_PACKED, 1, 0, MPI_COMM_WORLD);
+   } else {
+     /* RECEIVER CODE */
+     MPI_Recv(a, 2, MPI_INT, 0, 0, MPI_COMM_WORLD);
+   }
 
 
 ERRORS