Changes between Version 2 and Version 3 of mpich/point_to_point/demo3

Timestamp:

Jun 17, 2008, 10:57:18 AM (16 years ago)

Author:

wade

Comment:

--

mpich/point_to_point/demo3

@@ -5 +5 @@
  * History:
  *   2008-06-12 BETA
+ *   2008-06-17 更改顯示方式，並增加註解
  */
 
@@ -19 +20 @@
   MPI_Comm_size(MPI_COMM_WORLD, &numprocs);
   MPI_Comm_rank(MPI_COMM_WORLD, &myrank);
+
+  /* Node 0 will do the following */
   if(myrank == 0)
   {
-    printf("I am %d \n", myrank);
-    for(i = 1; i < (numprocs); i++)
+    /* receive messages from other nodes */
+    for(i = 1; i < numprocs; i++)
     {
       MPI_Recv(message, 20, MPI_CHAR, i, 99, MPI_COMM_WORLD, &status);
-      printf(" I GOT %s \n", message);
+      printf("[Node 0] << 「%s」[Node %d] \n", message, status.MPI_SOURCE);
     }
-    printf("\n");
   }
+
+  /* other Nodes will do the following */
   if(myrank != 0)
   {
-    sprintf(message, "i am %d", myrank);
+    /* send node's rank to Node 0 */
+    sprintf(message, "[%d]", myrank);
     MPI_Send(message, 20, MPI_CHAR, 0, 99, MPI_COMM_WORLD);
-    printf("I am %d \n", myrank);
-    printf("I send %s\n\n ", message);
+    printf("[Node %d]「%s」 >> [Node 0]\n", myrank, message);
   }
   MPI_Finalize();