X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/c196d5468b9bf03da04bfdd45bb5f80b8d071b63..576fac0b2f9ff651dfc7454bba89bbf0f76e934d:/teshsuite/simdag/comm-mxn-scatter/comm-mxn-scatter.c

diff --git a/teshsuite/simdag/comm-mxn-scatter/comm-mxn-scatter.c b/teshsuite/simdag/comm-mxn-scatter/comm-mxn-scatter.c
new file mode 100644
index 0000000000..8fc362d31b
--- /dev/null
+++ b/teshsuite/simdag/comm-mxn-scatter/comm-mxn-scatter.c
@@ -0,0 +1,48 @@
+/* Latency tests                                                            */
+
+/* Copyright (c) 2007, 2009-2011, 2013-2015. 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 <stdio.h>
+#include "simgrid/simdag.h"
+
+/*
+ * intra communication test 1
+ * scatter
+ * 
+ * start: 1 2 3 (each having 1/3 of the bandwidth)
+ * after 3 sec: 0 1 2 (having 1/2 of the bandwidth)
+ * after another 2 sec: 0 0 1 (having all the bandwidth)
+ * -> finished after 1 sec
+ * time to send: 6 + latency at the beginning: 0.5 + 1 + 0.5
+ */
+
+int main(int argc, char **argv)
+{
+
+  double communication_amount[] = { 0.0, 1.0, 2.0, 3.0,
+                                    0.0, 0.0, 0.0, 0.0,
+                                    0.0, 0.0, 0.0, 0.0,
+                                    0.0, 0.0, 0.0, 0.0 };
+  double no_cost[] = { 0.0, 0.0, 0.0, 0.0 };
+
+  SD_init(&argc, argv);
+  SD_create_environment(argv[1]);
+
+  SD_task_t task = SD_task_create("Scatter task", NULL, 1.0);
+
+  SD_task_schedule(task, 4, sg_host_list(), no_cost, communication_amount, -1.0);
+
+  SD_simulate(-1.0);
+
+  printf("%g\n", SD_get_clock());
+  fflush(stdout);
+
+  SD_task_destroy(task);
+
+  SD_exit();
+  return 0;
+}