Changes between Version 3 and Version 4 of YM_Course_2009/Lab8

Timestamp:

Jul 5, 2009, 2:02:49 PM (15 years ago)

Author:

jazz

Comment:

--

YM_Course_2009/Lab8

@@ -65 +65 @@
 bio007
 }}}
+ * 用 mpdringtest 做 mpd 訊息傳遞效能測試
+{{{
+ym24@bio002:~$ mpdringtest 1000
+time for 1000 loops = 1.07995414734 seconds
+}}}
+ * 用 mpiexec 執行 cpi 範例程式
+{{{
+ym24@bio001:~$ mpiexec -n 3 /opt/mpich2/share/mpich2/examples/cpi
+Process 0 of 1 is on bio001
+pi is approximately 3.1415926544231341, Error is 0.0000000008333410
+wall clock time = 0.000295
+Process 0 of 1 is on bio001
+pi is approximately 3.1415926544231341, Error is 0.0000000008333410
+wall clock time = 0.000287
+Process 0 of 1 is on bio001
+pi is approximately 3.1415926544231341, Error is 0.0000000008333410
+wall clock time = 0.000277
+}}}
+ * 貼上 test1.c
+{{{
+ym24@bio001:~$ cat << EOF > test1.c
+#include <stdio.h>
+#include <mpi.h>
+main (int argc, char **argv)
+{
+  int rank, size, len;
+  char name[MPI_MAX_PROCESSOR_NAME];
+  MPI_Init(&argc, &argv);
+  int myid, numprocs;
+
+  /* 取得 node 總數 */
+  MPI_Comm_size(MPI_COMM_WORLD,&numprocs);
+  /* 取得本身 node id / rank */
+  MPI_Comm_rank(MPI_COMM_WORLD,&myid);
+  /* 取得本身 host name */
+  MPI_Get_processor_name(name, &len);
+  printf("This is machine %d of %d name = %s\n", myid, numprocs, name);
+
+  MPI_Finalize();
+}
+EOF
+}}}