teshsuite/simdag/comm-mxn-all2all/comm-mxn-all2all.c

   1 /* Latency tests                                                            */
   2
   3 /* Copyright (c) 2007-2018. The SimGrid Team.
   4  * All rights reserved.                                                     */
   5
   6 /* This program is free software; you can redistribute it and/or modify it
   7  * under the terms of the license (GNU LGPL) which comes with this package. */
   8
   9 #include "simgrid/simdag.h"
  10 XBT_LOG_NEW_DEFAULT_SUBCATEGORY(comm_mxn_all2all, sd, "SimDag test All2All");
  11
  12 /*
  13  * intra communication test
  14  * All2All
  15  *
  16  * send 1 byte from all to all
  17  * + 2 secs latency
  18  * should be 8  (platform_4p_1switch.xml)
  19  */
  20
  21 int main(int argc, char **argv)
  22 {
  23   double communication_amount[] = { 0.0, 1.0, 1.0, 1.0,
  24                                     1.0, 0.0, 1.0, 1.0,
  25                                     1.0, 1.0, 0.0, 1.0,
  26                                     1.0, 1.0, 1.0, 0.0 };
  27
  28   SD_init(&argc, argv);
  29   SD_create_environment(argv[1]);
  30
  31   SD_task_t task = SD_task_create("All2all task", NULL, 1.0);
  32
  33   sg_host_t *hosts = sg_host_list();
  34   SD_task_schedule(task, 4, hosts, SD_SCHED_NO_COST, communication_amount, -1.0);
  35   xbt_free(hosts);
  36
  37   SD_simulate(-1.0);
  38
  39   XBT_INFO("%g", SD_get_clock());
  40
  41   SD_task_destroy(task);
  42
  43   return 0;
  44 }