-static double share_cpu_KCCFLN05_resources(double now)
-{
- s_surf_action_cpu_KCCFLN05_t s_cpu_action;
- lmm_constraint_t cnst = NULL;
- workstation_KCCFLN05_t workstation = NULL;
- double W=0.0;
- double scale=0.0;
- int cpt;
- surf_action_network_KCCFLN05_t action;
-
- for(cnst = lmm_get_first_active_constraint(maxmin_system_cpu_KCCFLN05);
- cnst;
- cnst= lmm_get_next_active_constraint(maxmin_system_cpu_KCCFLN05, cnst))
- {
- workstation = lmm_constraint_id(cnst);
- W=workstation->power_current * workstation->power_scale;
-
- if((!xbt_dynar_length(workstation->incomming_communications)) &&
- (!xbt_dynar_length(workstation->outgoing_communications))) {
- scale = 1.0;
- } else if((!xbt_dynar_length(workstation->incomming_communications)) &&
- (xbt_dynar_length(workstation->outgoing_communications))) {
- scale = workstation->interference_send;
- xbt_dynar_foreach (workstation->outgoing_communications,cpt,action) {
-/* VOIRD(action->src->id); */
-/* VOIRD(action->dst->id); */
-/* VOIRP(&ROUTE(action->src->id,action->dst->id)); */
-/* VOIRG(ROUTE(action->src->id,action->dst->id).impact_on_src); */
- scale -= ROUTE(action->src->id,action->dst->id).impact_on_src *
- lmm_variable_getvalue(action->variable);
- }
- if(scale<0.0) scale=0.0;
- xbt_assert0(scale>=0.0,"Negative interference !");
- } else if((xbt_dynar_length(workstation->incomming_communications)) &&
- (!xbt_dynar_length(workstation->outgoing_communications))) {
- scale = workstation->interference_recv;
- xbt_dynar_foreach (workstation->incomming_communications,cpt,action) {
- scale -= ROUTE(action->src->id,action->dst->id).impact_on_dst *
- lmm_variable_getvalue(action->variable);
- }
- if(scale<0.0) scale=0.0;
- xbt_assert0(scale>=0.0,"Negative interference !");
- } else {
- scale = workstation->interference_send_recv;
- xbt_dynar_foreach (workstation->outgoing_communications,cpt,action) {
- scale -= ROUTE(action->src->id,action->dst->id).impact_on_src_with_other_recv *
- lmm_variable_getvalue(action->variable);
- }
- xbt_dynar_foreach (workstation->incomming_communications,cpt,action) {
- scale -= ROUTE(action->src->id,action->dst->id).impact_on_dst_with_other_send *
- lmm_variable_getvalue(action->variable);
+ /* Compute the number of affected models... */
+ for (i = 0; i < workstation_nb; i++) {
+ for (j = 0; j < workstation_nb; j++) {
+ cpu_KCCFLN05_t card_src = workstation_list[i];
+ cpu_KCCFLN05_t card_dst = workstation_list[j];
+ int route_size = ROUTE(card_src->id, card_dst->id).size;
+ network_link_KCCFLN05_t *route =
+ ROUTE(card_src->id, card_dst->id).links;
+
+ if (communication_amount[i * workstation_nb + j] > 0)
+ for (k = 0; k < route_size; k++) {
+ xbt_dict_set(parallel_task_network_link_set, route[k]->name,
+ route[k], NULL);