4 #define USE_UNORDERED_MAP 1
5 //#undef USE_UNORDERED_MAP
8 #ifdef USE_UNORDERED_MAP
9 # include <tr1/unordered_map>
10 # define MAP_TEMPLATE std::tr1::unordered_map
13 # define MAP_TEMPLATE std::map
17 #include "communicator.h"
24 static double get_total_load_init() { return total_load_init; }
25 static double get_total_load_running() { return total_load_running; }
26 static double get_total_load_exit() { return total_load_exit; }
28 process(int argc, char* argv[]);
31 double get_comp() const { return comp; }
32 double get_real_load() const { return real_load; }
37 typedef std::vector<neighbor> neigh_type;
38 typedef std::vector<neighbor*> pneigh_type;
40 pneigh_type pneigh; // list of pointers to neighbors that
41 // we are free to reorder
43 // Get and set current load, which may be real load, or expected
44 // load if opt::bookkeeping is true.
45 double get_load() const;
46 void set_load(double load);
48 // Register some amount of load to send to given neighbor.
49 void send(neighbor& nb, double amount);
50 void send(neighbor* nb, double amount) { send(*nb, amount); }
52 // Calls neighbor::print(verbose, logp, cat) for each member of neigh.
53 void print_loads(bool verbose = false,
54 e_xbt_log_priority_t logp = xbt_log_priority_info,
55 xbt_log_category_t cat = _XBT_LOGV(default)) const;
57 // Calls neighbor::print(verbose, logp, cat) for each member of pneigh.
58 void print_loads_p(bool verbose = false,
59 e_xbt_log_priority_t logp = xbt_log_priority_info,
60 xbt_log_category_t cat = _XBT_LOGV(default)) const;
63 static double total_load_init; // sum of process loads at init
64 static double total_load_running; // sum of loads while running
65 static double total_load_exit; // sum of process loads at exit
67 typedef MAP_TEMPLATE<m_host_t, neighbor*> rev_neigh_type;
68 neigh_type neigh; // list of neighbors (do not alter
69 // after construction!)
70 rev_neigh_type rev_neigh; // map m_host_t -> neighbor
72 communicator comm; // communicator for this process
73 int ctrl_close_pending; // number of "close" messages to wait
75 int data_close_pending; // number of "close" messages to wait
77 bool close_received; // true if we received a "close" message
78 bool finalizing; // true when finalize() is running
80 unsigned lb_iter; // counter of load-balancing iterations
81 unsigned comp_iter; // counter of computation iterations
83 double comp; // total computing done so far (flops)
85 double prev_load_broadcast; // used to ensure that we do not send
86 // a same information messages
87 double real_load; // current load
88 double expected_load; // expected load in bookkeeping mode
90 // The load balancing algorithm comes here...
91 virtual void load_balance();
93 // Virtually do some computation
96 // Send procedures, with helpers for bookkeeping mode or not
97 void send1_no_bookkeeping(neighbor& nb);
98 void send1_bookkeeping(neighbor& nb);
101 // Returns true if there remains neighbors to listen for
102 bool may_receive() const {
103 return ctrl_close_pending || data_close_pending;
107 // Parameter "timeout" may be 0 for non-blocking operation, -1 for
108 // infinite waiting, or any positive timeout.
109 void receive(double timeout);
111 // Finalize sends a "close" message to each neighbor and wait for
112 // all of them to answer.
113 void finalize1(neighbor& nb);
118 double process::get_load() const
120 if (opt::bookkeeping)
121 return expected_load;
127 void process::set_load(double load)
129 if (opt::bookkeeping)
130 expected_load = load;
135 struct pneigh_load_less {
136 bool operator()(const neighbor* a, const neighbor* b)
138 return a->get_load() < b->get_load();
142 struct pneigh_load_greater {
143 bool operator()(const neighbor* a, const neighbor* b)
145 return a->get_load() > b->get_load();