X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/ae2a5a18b19be8ffe9b75acff37152e010f5a860..6de9090dd8692387ae343c587b26915f9922d7bd:/examples/simdag/sd_test2.c diff --git a/examples/simdag/sd_test2.c b/examples/simdag/sd_test2.c index 9f77f0100e..e04bcfde89 100644 --- a/examples/simdag/sd_test2.c +++ b/examples/simdag/sd_test2.c @@ -1,3 +1,9 @@ +/* Copyright (c) 2007, 2008, 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 #include #include @@ -5,22 +11,23 @@ #include "simdag/simdag.h" #include "xbt/log.h" -#include "xbt/sysdep.h" /* calloc, printf */ +#include "xbt/sysdep.h" /* calloc, printf */ XBT_LOG_NEW_DEFAULT_CATEGORY(sd_test, - "Logging specific to this SimDag example"); + "Logging specific to this SimDag example"); static int nameCompareHosts(const void *n1, const void *n2) { - return strcmp(SD_workstation_get_name(*((SD_workstation_t *)n1)), - SD_workstation_get_name(*((SD_workstation_t *)n2))); + return strcmp(SD_workstation_get_name(*((SD_workstation_t *) n1)), + SD_workstation_get_name(*((SD_workstation_t *) n2))); } -int main(int argc, char **argv) { - int i,j; - SD_task_t *changed_tasks; +int main(int argc, char **argv) +{ + int i, j; + xbt_dynar_t changed_tasks; int n_hosts; - const SD_workstation_t * hosts; + const SD_workstation_t *hosts; SD_task_t taskInit; SD_task_t PtoPComm1; SD_task_t PtoPComm2; @@ -30,27 +37,26 @@ int main(int argc, char **argv) { SD_task_t InterRedist; SD_task_t taskFinal; SD_task_t ParComp_wcomm2; - const double no_cost[] = {1.0, 1.0}; SD_workstation_t PtoPcomm1_hosts[2]; SD_workstation_t PtoPcomm2_hosts[2]; - double PtoPcomm1_table[] = { 0, 12500000, 0, 0 }; /* 100Mb */ - double PtoPcomm2_table[] = { 0, 1250000, 0, 0 }; /* 10Mb */ - double ParComp_wocomm_cost[] = {1e+9,1e+9,1e+9,1e+9,1e+9}; /* 1 Gflop per Proc */ + double PtoPcomm1_table[] = { 0, 12500000, 0, 0 }; /* 100Mb */ + double PtoPcomm2_table[] = { 0, 1250000, 0, 0 }; /* 10Mb */ + double ParComp_wocomm_cost[] = { 1e+9, 1e+9, 1e+9, 1e+9, 1e+9 }; /* 1 Gflop per Proc */ double *ParComp_wocomm_table; SD_workstation_t ParComp_wocomm_hosts[5]; double *IntraRedist_cost; double *IntraRedist_table; SD_workstation_t IntraRedist_hosts[5]; - double ParComp_wcomm1_cost[] = {1e+9,1e+9,1e+9,1e+9,1e+9}; /* 1 Gflop per Proc */ + double ParComp_wcomm1_cost[] = { 1e+9, 1e+9, 1e+9, 1e+9, 1e+9 }; /* 1 Gflop per Proc */ double *ParComp_wcomm1_table; SD_workstation_t ParComp_wcomm1_hosts[5]; double *InterRedist_cost; double *InterRedist_table; - double ParComp_wcomm2_cost[] = {1e+8,1e+8,1e+8,1e+8,1e+8}; /* 1 Gflop per Proc (0.02sec duration) */ + double ParComp_wcomm2_cost[] = { 1e+8, 1e+8, 1e+8, 1e+8, 1e+8 }; /* 1 Gflop per Proc (0.02sec duration) */ SD_workstation_t ParComp_wcomm2_hosts[5]; double final_cost = 5e+9; double *ParComp_wcomm2_table; - + /* initialisation of SD */ SD_init(&argc, argv); @@ -59,24 +65,24 @@ int main(int argc, char **argv) { /* getting platform infos */ n_hosts = SD_workstation_get_number(); - hosts= SD_workstation_get_list(); + hosts = SD_workstation_get_list(); /* sorting hosts by hostname */ - qsort((void *)hosts,n_hosts, - sizeof(SD_workstation_t),nameCompareHosts); + qsort((void *) hosts, n_hosts, sizeof(SD_workstation_t), + nameCompareHosts); /* creation of the tasks */ - taskInit = SD_task_create("Initial",NULL,1.0); + taskInit = SD_task_create("Initial", NULL, 1.0); PtoPComm1 = SD_task_create("PtoP Comm 1", NULL, 1.0); PtoPComm2 = SD_task_create("PtoP Comm 2", NULL, 1.0); - ParComp_wocomm = SD_task_create("Par Comp without comm", NULL, 1.0); - IntraRedist = SD_task_create("intra redist", NULL, 1.0); - ParComp_wcomm1 = SD_task_create("Par Comp with comm 1", NULL, 1.0); - InterRedist = SD_task_create("inter redist", NULL, 1.0); - taskFinal = SD_task_create("Final",NULL,1.0); - ParComp_wcomm2 = SD_task_create("Par Comp with comm 2", NULL, 1.0); - - + ParComp_wocomm = SD_task_create("Par Comp without comm", NULL, 1.0); + IntraRedist = SD_task_create("intra redist", NULL, 1.0); + ParComp_wcomm1 = SD_task_create("Par Comp with comm 1", NULL, 1.0); + InterRedist = SD_task_create("inter redist", NULL, 1.0); + taskFinal = SD_task_create("Final", NULL, 1.0); + ParComp_wcomm2 = SD_task_create("Par Comp with comm 2", NULL, 1.0); + + /* creation of the dependencies */ SD_task_dependency_add(NULL, NULL, taskInit, PtoPComm1); SD_task_dependency_add(NULL, NULL, taskInit, PtoPComm2); @@ -87,104 +93,115 @@ int main(int argc, char **argv) { SD_task_dependency_add(NULL, NULL, InterRedist, ParComp_wcomm2); SD_task_dependency_add(NULL, NULL, ParComp_wcomm2, taskFinal); SD_task_dependency_add(NULL, NULL, PtoPComm2, taskFinal); - - + + /* scheduling parameters */ - - /* large point-to-point communication (0.1 sec duration) */ + + /* large point-to-point communication (0.1 sec duration) */ PtoPcomm1_hosts[0] = hosts[0]; - PtoPcomm1_hosts[1] =hosts[1]; + PtoPcomm1_hosts[1] = hosts[1]; - /* small point-to-point communication (0.01 sec duration) */ + /* small point-to-point communication (0.01 sec duration) */ PtoPcomm2_hosts[0] = hosts[0]; PtoPcomm2_hosts[1] = hosts[2]; - + /* parallel task without intra communications (1 sec duration) */ - ParComp_wocomm_table = xbt_new0(double,25); + ParComp_wocomm_table = xbt_new0(double, 25); - for (i=0; i<5;i++){ - ParComp_wocomm_hosts[i]=hosts[i]; + for (i = 0; i < 5; i++) { + ParComp_wocomm_hosts[i] = hosts[i]; } - + /* redistribution within a cluster (small latencies) */ /* each host send (4*2.5Mb =) 10Mb */ /* bandwidth is shared between 5 flows (0.05sec duration) */ - IntraRedist_cost = xbt_new0(double,5); - IntraRedist_table = xbt_new0(double,25); - for (i=0;i<5;i++){ - for (j=0;j<5;j++){ - if (i==j) - IntraRedist_table[i*5+j] = 0.; + IntraRedist_cost = xbt_new0(double, 5); + IntraRedist_table = xbt_new0(double, 25); + for (i = 0; i < 5; i++) { + for (j = 0; j < 5; j++) { + if (i == j) + IntraRedist_table[i * 5 + j] = 0.; else - IntraRedist_table[i*5+j] = 312500.; /* 2.5Mb */ + IntraRedist_table[i * 5 + j] = 312500.; /* 2.5Mb */ } } - for (i=0; i<5;i++){ - IntraRedist_hosts[i]=hosts[i]; + for (i = 0; i < 5; i++) { + IntraRedist_hosts[i] = hosts[i]; } - + /* parallel task with intra communications */ /* Computation domination (1 sec duration) */ - ParComp_wcomm1_table = xbt_new0(double,25); - - for (i=0; i<5;i++){ - ParComp_wcomm1_hosts[i]=hosts[i]; + ParComp_wcomm1_table = xbt_new0(double, 25); + + for (i = 0; i < 5; i++) { + ParComp_wcomm1_hosts[i] = hosts[i]; } - for (i=0;i<5;i++){ - for (j=0;j<5;j++){ - if (i==j) - ParComp_wcomm1_table[i*5+j] = 0.; + for (i = 0; i < 5; i++) { + for (j = 0; j < 5; j++) { + if (i == j) + ParComp_wcomm1_table[i * 5 + j] = 0.; else - ParComp_wcomm1_table[i*5+j] = 312500.; /* 2.5Mb */ + ParComp_wcomm1_table[i * 5 + j] = 312500.; /* 2.5Mb */ } } - + /* inter cluster redistribution (big latency on the backbone) */ - /* (0.5sec duration without latency impact)*/ - InterRedist_cost = xbt_new0(double,10); - InterRedist_table = xbt_new0(double,100); - for (i=0;i<5;i++){ - InterRedist_table[i*10+i+5] = 1250000.; /* 10Mb */ + /* (0.5sec duration without latency impact) */ + InterRedist_cost = xbt_new0(double, 10); + InterRedist_table = xbt_new0(double, 100); + for (i = 0; i < 5; i++) { + InterRedist_table[i * 10 + i + 5] = 1250000.; /* 10Mb */ } /* parallel task with intra communications */ /* Communication domination (0.1 sec duration) */ - - ParComp_wcomm2_table = xbt_new0(double,25); - - for (i=0; i<5;i++){ - ParComp_wcomm2_hosts[i]=hosts[i+5]; + + ParComp_wcomm2_table = xbt_new0(double, 25); + + for (i = 0; i < 5; i++) { + ParComp_wcomm2_hosts[i] = hosts[i + 5]; } - for (i=0;i<5;i++){ - for (j=0;j<5;j++){ - if (i==j) - ParComp_wcomm2_table[i*5+j] = 0.; + for (i = 0; i < 5; i++) { + for (j = 0; j < 5; j++) { + if (i == j) + ParComp_wcomm2_table[i * 5 + j] = 0.; else - ParComp_wcomm2_table[i*5+j] = 625000.; /* 5Mb */ + ParComp_wcomm2_table[i * 5 + j] = 625000.; /* 5Mb */ } } - + /* Sequential task */ - + /* scheduling the tasks */ - SD_task_schedule(taskInit, 1, hosts, no_cost, no_cost, -1.0); - SD_task_schedule(PtoPComm1, 2, PtoPcomm1_hosts, no_cost, PtoPcomm1_table, -1.0); - SD_task_schedule(PtoPComm2, 2, PtoPcomm2_hosts, no_cost, PtoPcomm2_table, -1.0); - SD_task_schedule(ParComp_wocomm, 5, ParComp_wocomm_hosts, ParComp_wocomm_cost, ParComp_wocomm_table, -1.0); - SD_task_schedule(IntraRedist, 5, IntraRedist_hosts, IntraRedist_cost, IntraRedist_table, -1.0); - SD_task_schedule(ParComp_wcomm1, 5, ParComp_wcomm1_hosts, ParComp_wcomm1_cost, ParComp_wcomm1_table, -1.0); - SD_task_schedule(InterRedist, 10, hosts, InterRedist_cost, InterRedist_table, -1.0); - SD_task_schedule(ParComp_wcomm2, 5, ParComp_wcomm2_hosts, ParComp_wcomm2_cost, ParComp_wcomm2_table, -1.0); - SD_task_schedule(taskFinal, 1, &(hosts[9]), &final_cost, no_cost, -1.0); - + SD_task_schedule(taskInit, 1, hosts, SD_SCHED_NO_COST, SD_SCHED_NO_COST, + -1.0); + SD_task_schedule(PtoPComm1, 2, PtoPcomm1_hosts, SD_SCHED_NO_COST, + PtoPcomm1_table, -1.0); + SD_task_schedule(PtoPComm2, 2, PtoPcomm2_hosts, SD_SCHED_NO_COST, + PtoPcomm2_table, -1.0); + SD_task_schedule(ParComp_wocomm, 5, ParComp_wocomm_hosts, + ParComp_wocomm_cost, ParComp_wocomm_table, -1.0); + SD_task_schedule(IntraRedist, 5, IntraRedist_hosts, IntraRedist_cost, + IntraRedist_table, -1.0); + SD_task_schedule(ParComp_wcomm1, 5, ParComp_wcomm1_hosts, + ParComp_wcomm1_cost, ParComp_wcomm1_table, -1.0); + SD_task_schedule(InterRedist, 10, hosts, InterRedist_cost, + InterRedist_table, -1.0); + SD_task_schedule(ParComp_wcomm2, 5, ParComp_wcomm2_hosts, + ParComp_wcomm2_cost, ParComp_wcomm2_table, -1.0); + SD_task_schedule(taskFinal, 1, &(hosts[9]), &final_cost, + SD_SCHED_NO_COST, -1.0); + /* let's launch the simulation! */ changed_tasks = SD_simulate(-1.0); - free(changed_tasks); + XBT_INFO("Simulation time: %f", SD_get_clock()); + + xbt_dynar_free_container(&changed_tasks); free(ParComp_wocomm_table); free(IntraRedist_cost); @@ -193,7 +210,7 @@ int main(int argc, char **argv) { free(InterRedist_cost); free(InterRedist_table); free(ParComp_wcomm2_table); - + SD_task_destroy(taskInit); SD_task_destroy(PtoPComm1); SD_task_destroy(PtoPComm2); @@ -207,4 +224,3 @@ int main(int argc, char **argv) { SD_exit(); return 0; } -