1 /* Copyright (c) 2007, 2008, 2009, 2010. The SimGrid Team.
2 * All rights reserved. */
4 /* This program is free software; you can redistribute it and/or modify it
5 * under the terms of the license (GNU LGPL) which comes with this package. */
11 #include "simdag/simdag.h"
14 #include "xbt/sysdep.h" /* calloc, printf */
16 XBT_LOG_NEW_DEFAULT_CATEGORY(sd_test,
17 "Logging specific to this SimDag example");
19 static int nameCompareHosts(const void *n1, const void *n2)
21 return strcmp(SD_workstation_get_name(*((SD_workstation_t *) n1)),
22 SD_workstation_get_name(*((SD_workstation_t *) n2)));
25 int main(int argc, char **argv)
28 xbt_dynar_t changed_tasks;
30 const SD_workstation_t *hosts;
34 SD_task_t ParComp_wocomm;
35 SD_task_t IntraRedist;
36 SD_task_t ParComp_wcomm1;
37 SD_task_t InterRedist;
39 SD_task_t ParComp_wcomm2;
40 SD_workstation_t PtoPcomm1_hosts[2];
41 SD_workstation_t PtoPcomm2_hosts[2];
42 double PtoPcomm1_table[] = { 0, 12500000, 0, 0 }; /* 100Mb */
43 double PtoPcomm2_table[] = { 0, 1250000, 0, 0 }; /* 10Mb */
44 double ParComp_wocomm_cost[] = { 1e+9, 1e+9, 1e+9, 1e+9, 1e+9 }; /* 1 Gflop per Proc */
45 double *ParComp_wocomm_table;
46 SD_workstation_t ParComp_wocomm_hosts[5];
47 double *IntraRedist_cost;
48 double *IntraRedist_table;
49 SD_workstation_t IntraRedist_hosts[5];
50 double ParComp_wcomm1_cost[] = { 1e+9, 1e+9, 1e+9, 1e+9, 1e+9 }; /* 1 Gflop per Proc */
51 double *ParComp_wcomm1_table;
52 SD_workstation_t ParComp_wcomm1_hosts[5];
53 double *InterRedist_cost;
54 double *InterRedist_table;
55 double ParComp_wcomm2_cost[] = { 1e+8, 1e+8, 1e+8, 1e+8, 1e+8 }; /* 1 Gflop per Proc (0.02sec duration) */
56 SD_workstation_t ParComp_wcomm2_hosts[5];
57 double final_cost = 5e+9;
58 double *ParComp_wcomm2_table;
60 /* initialisation of SD */
63 /* creation of the environment */
64 if (strstr(argv[1],".xml"))
65 SD_create_environment(argv[1]);
67 if (strstr(argv[1],".lua"))
68 SD_load_environment_script(argv[1]);
70 xbt_die("Unsupported platform description styel (neither XML nor lua): %s",
73 /* getting platform infos */
74 n_hosts = SD_workstation_get_number();
75 hosts = SD_workstation_get_list();
77 /* sorting hosts by hostname */
78 qsort((void *) hosts, n_hosts, sizeof(SD_workstation_t),
81 /* creation of the tasks */
82 taskInit = SD_task_create("Initial", NULL, 1.0);
83 PtoPComm1 = SD_task_create("PtoP Comm 1", NULL, 1.0);
84 PtoPComm2 = SD_task_create("PtoP Comm 2", NULL, 1.0);
85 ParComp_wocomm = SD_task_create("Par Comp without comm", NULL, 1.0);
86 IntraRedist = SD_task_create("intra redist", NULL, 1.0);
87 ParComp_wcomm1 = SD_task_create("Par Comp with comm 1", NULL, 1.0);
88 InterRedist = SD_task_create("inter redist", NULL, 1.0);
89 taskFinal = SD_task_create("Final", NULL, 1.0);
90 ParComp_wcomm2 = SD_task_create("Par Comp with comm 2", NULL, 1.0);
93 /* creation of the dependencies */
94 SD_task_dependency_add(NULL, NULL, taskInit, PtoPComm1);
95 SD_task_dependency_add(NULL, NULL, taskInit, PtoPComm2);
96 SD_task_dependency_add(NULL, NULL, PtoPComm1, ParComp_wocomm);
97 SD_task_dependency_add(NULL, NULL, ParComp_wocomm, IntraRedist);
98 SD_task_dependency_add(NULL, NULL, IntraRedist, ParComp_wcomm1);
99 SD_task_dependency_add(NULL, NULL, ParComp_wcomm1, InterRedist);
100 SD_task_dependency_add(NULL, NULL, InterRedist, ParComp_wcomm2);
101 SD_task_dependency_add(NULL, NULL, ParComp_wcomm2, taskFinal);
102 SD_task_dependency_add(NULL, NULL, PtoPComm2, taskFinal);
105 /* scheduling parameters */
107 /* large point-to-point communication (0.1 sec duration) */
108 PtoPcomm1_hosts[0] = hosts[0];
109 PtoPcomm1_hosts[1] = hosts[1];
111 /* small point-to-point communication (0.01 sec duration) */
112 PtoPcomm2_hosts[0] = hosts[0];
113 PtoPcomm2_hosts[1] = hosts[2];
115 /* parallel task without intra communications (1 sec duration) */
116 ParComp_wocomm_table = xbt_new0(double, 25);
118 for (i = 0; i < 5; i++) {
119 ParComp_wocomm_hosts[i] = hosts[i];
122 /* redistribution within a cluster (small latencies) */
123 /* each host send (4*2.5Mb =) 10Mb */
124 /* bandwidth is shared between 5 flows (0.05sec duration) */
125 IntraRedist_cost = xbt_new0(double, 5);
126 IntraRedist_table = xbt_new0(double, 25);
127 for (i = 0; i < 5; i++) {
128 for (j = 0; j < 5; j++) {
130 IntraRedist_table[i * 5 + j] = 0.;
132 IntraRedist_table[i * 5 + j] = 312500.; /* 2.5Mb */
136 for (i = 0; i < 5; i++) {
137 IntraRedist_hosts[i] = hosts[i];
140 /* parallel task with intra communications */
141 /* Computation domination (1 sec duration) */
142 ParComp_wcomm1_table = xbt_new0(double, 25);
144 for (i = 0; i < 5; i++) {
145 ParComp_wcomm1_hosts[i] = hosts[i];
148 for (i = 0; i < 5; i++) {
149 for (j = 0; j < 5; j++) {
151 ParComp_wcomm1_table[i * 5 + j] = 0.;
153 ParComp_wcomm1_table[i * 5 + j] = 312500.; /* 2.5Mb */
157 /* inter cluster redistribution (big latency on the backbone) */
158 /* (0.5sec duration without latency impact) */
159 InterRedist_cost = xbt_new0(double, 10);
160 InterRedist_table = xbt_new0(double, 100);
161 for (i = 0; i < 5; i++) {
162 InterRedist_table[i * 10 + i + 5] = 1250000.; /* 10Mb */
165 /* parallel task with intra communications */
166 /* Communication domination (0.1 sec duration) */
168 ParComp_wcomm2_table = xbt_new0(double, 25);
170 for (i = 0; i < 5; i++) {
171 ParComp_wcomm2_hosts[i] = hosts[i + 5];
174 for (i = 0; i < 5; i++) {
175 for (j = 0; j < 5; j++) {
177 ParComp_wcomm2_table[i * 5 + j] = 0.;
179 ParComp_wcomm2_table[i * 5 + j] = 625000.; /* 5Mb */
183 /* Sequential task */
186 /* scheduling the tasks */
187 SD_task_schedule(taskInit, 1, hosts, SD_SCHED_NO_COST, SD_SCHED_NO_COST,
189 SD_task_schedule(PtoPComm1, 2, PtoPcomm1_hosts, SD_SCHED_NO_COST,
190 PtoPcomm1_table, -1.0);
191 SD_task_schedule(PtoPComm2, 2, PtoPcomm2_hosts, SD_SCHED_NO_COST,
192 PtoPcomm2_table, -1.0);
193 SD_task_schedule(ParComp_wocomm, 5, ParComp_wocomm_hosts,
194 ParComp_wocomm_cost, ParComp_wocomm_table, -1.0);
195 SD_task_schedule(IntraRedist, 5, IntraRedist_hosts, IntraRedist_cost,
196 IntraRedist_table, -1.0);
197 SD_task_schedule(ParComp_wcomm1, 5, ParComp_wcomm1_hosts,
198 ParComp_wcomm1_cost, ParComp_wcomm1_table, -1.0);
199 SD_task_schedule(InterRedist, 10, hosts, InterRedist_cost,
200 InterRedist_table, -1.0);
201 SD_task_schedule(ParComp_wcomm2, 5, ParComp_wcomm2_hosts,
202 ParComp_wcomm2_cost, ParComp_wcomm2_table, -1.0);
203 SD_task_schedule(taskFinal, 1, &(hosts[9]), &final_cost,
204 SD_SCHED_NO_COST, -1.0);
206 /* let's launch the simulation! */
207 changed_tasks = SD_simulate(-1.0);
209 XBT_INFO("Simulation time: %f", SD_get_clock());
211 xbt_dynar_free_container(&changed_tasks);
213 free(ParComp_wocomm_table);
214 free(IntraRedist_cost);
215 free(IntraRedist_table);
216 free(ParComp_wcomm1_table);
217 free(InterRedist_cost);
218 free(InterRedist_table);
219 free(ParComp_wcomm2_table);
221 SD_task_destroy(taskInit);
222 SD_task_destroy(PtoPComm1);
223 SD_task_destroy(PtoPComm2);
224 SD_task_destroy(ParComp_wocomm);
225 SD_task_destroy(IntraRedist);
226 SD_task_destroy(ParComp_wcomm1);
227 SD_task_destroy(InterRedist);
228 SD_task_destroy(ParComp_wcomm2);
229 SD_task_destroy(taskFinal);