X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/ef99a405745deb2eaaa8fd1539fa6377495f9217..7e71e956181763288b1ce7d51f36ac4cdbcab365:/examples/gras/chrono/chrono.c

diff --git a/examples/gras/chrono/chrono.c b/examples/gras/chrono/chrono.c
index c0c888834e..8dba5771f5 100644
--- a/examples/gras/chrono/chrono.c
+++ b/examples/gras/chrono/chrono.c
@@ -1,45 +1,85 @@
-/* $Id$ */
-
 /* chrono - demo of GRAS benchmarking features                              */
 
-/* Copyright (c) 2005 Martin Quinson, Arnaud Legrand. All rights reserved.  */
+/* Copyright (c) 2005, 2007, 2009, 2010. The SimGrid Team.
+ * All rights reserved.                                                     */
 
 /* This program is free software; you can redistribute it and/or modify it
  * under the terms of the license (GNU LGPL) which comes with this package. */
 
 #include "gras.h"
+#include "xbt/log.h"
 
-XBT_LOG_NEW_DEFAULT_CATEGORY(Chrono,"Messages specific to this example");
+XBT_LOG_NEW_DEFAULT_CATEGORY(Chrono, "Messages specific to this example");
 
 
 /* Function prototypes */
-int multiplier (int argc,char *argv[]);
+int multiplier(int argc, char *argv[]);
 
-int multiplier (int argc,char *argv[])
+int multiplier(int argc, char *argv[])
 {
-  int i,j,k;
-  double *A,*B,*C;
-  int n = 500;
-  gras_init(&argc, argv, NULL);
-  
-  A = malloc(n*n*sizeof(double));
-  B = malloc(n*n*sizeof(double));
-  C = malloc(n*n*sizeof(double));
-
-  INFO1("Before computation : %lg", gras_os_time());
-  for(i=0; i<n; i++)
-    for(j=0; j<n; j++) {
-      A[i*n+j]=2/n;
-      B[i*n+j]=1/n;
-      C[i*n+j]=0.0;
-    }
-
-  for(i=0; i<n; i++)
-    for(j=0; j<n; j++)
-      for(k=0; k<n; k++)	
-	C[i*n+j] += A[i*n+k]*B[k*n+j];
-
-  INFO1("After computation : %lg", gras_os_time());
+  int i, j, k, l;
+  double *A, *B, *C;
+  int n = 100;
+  double start = 0.0;
+  double now = 0.0;
+
+  gras_init(&argc, argv);
+
+  A = malloc(n * n * sizeof(double));
+  B = malloc(n * n * sizeof(double));
+  C = malloc(n * n * sizeof(double));
+
+  start = now = gras_os_time();
+
+  XBT_INFO("Begin matrix multiplication loop (time: %g)", start);
+
+  for (l = 0; l < 4; l++) {
+    now = gras_os_time();
+    GRAS_BENCH_ONCE_RUN_ONCE_BEGIN();
+    for (i = 0; i < n; i++)
+      for (j = 0; j < n; j++) {
+        A[i * n + j] = 2 / n;
+        B[i * n + j] = 1 / n;
+        C[i * n + j] = 0.0;
+      }
+
+    for (i = 0; i < n; i++)
+      for (j = 0; j < n; j++)
+        for (k = 0; k < n; k++)
+          C[i * n + j] += A[i * n + k] * B[k * n + j];
+
+    GRAS_BENCH_ONCE_RUN_ONCE_END();
+    now = gras_os_time() - now;
+    XBT_INFO("Iteration %d : %g ", l, now);
+  }
+
+  now = gras_os_time() - start;
+  XBT_INFO("End matrix multiplication loop (time: %g; Duration: %g)",
+        gras_os_time(), now);
+
+  start = now = gras_os_time();
+  XBT_INFO("Begin malloc loop (time: %g)", start);
+  for (l = 0; l < 4; l++) {
+    now = gras_os_time();
+    GRAS_BENCH_ONCE_RUN_ONCE_BEGIN();
+    free(A);
+    A = malloc(n * n * sizeof(double));
+    GRAS_BENCH_ONCE_RUN_ONCE_END();
+    now = gras_os_time() - now;
+    XBT_INFO("Iteration %d : %g ", l, now);
+  }
+
+  start = now = gras_os_time();
+  XBT_INFO("Begin integer incrementation loop (time: %g)", start);
+  for (l = 0; l < 4; l++) {
+    GRAS_BENCH_ONCE_RUN_ONCE_BEGIN();
+    j++;
+    GRAS_BENCH_ONCE_RUN_ONCE_END();
+  }
+  free(A);
+  free(B);
+  free(C);
 
+  gras_exit();
   return 0;
 }