private void receive_pairs_iteration(IPortTypeIterator output_instance, int senders_size, Tuple <int, int> unit_ref)
        {
            CompletedStatus status;

            do
            {
                Console.WriteLine("SPLITER WRITE SINK 7-1 facet=" + unit_ref.Item1 + "/rank=" + unit_ref.Item2);
                IList <IKVPairInstance <OKey, OValue> > buffer;
                lock (cs_recv) Split_channel.Receive(unit_ref, MPI.Communicator.anyTag, out buffer, out status);
                foreach (IKVPairInstance <OKey, OValue> kv in buffer)
                {
                    output_instance.put(kv);
                }
                Console.WriteLine("SPLITER WRITE SINK 7-2 facet=" + unit_ref.Item1 + "/rank=" + unit_ref.Item2);
            } while (status.Tag == TAG_SPLIT_NEW_CHUNK);


            Console.WriteLine("SPLITER WRITE SINK - OUTPUT RECEIVED");
        }
        //CONFIG
        public void readSource()
        {
            Console.WriteLine(this.GlobalRank + ": STARTING SPLITTER READSOURCE...1");
            output_instance_gifs = (IIteratorInstance <IKVPair <IInteger, IIterator <GIF> > >)Output_gifs.Instance;
            Feed_graph.Server    = output_instance_gifs;
            Console.WriteLine(this.GlobalRank + ": STARTING SPLITTER READSOURCE...2");

            // RECEIVE PAIR FROM THE SOURCE (1st iteration)
            Tuple <int, int> unit_ref_source = new Tuple <int, int> (this.FacetIndexes [FACET_SOURCE] [0], 0);

            //	Thread[] threads_receive = new Thread[senders_size];

            //	for (int i = 0; i < senders_size; i++)
            //	{
            //		threads_receive [i] = new Thread ((ParameterizedThreadStart)delegate(object unit_ref_obj) {
            //			Tuple<int,int> unit_ref_i = (Tuple<int,int>)unit_ref_obj;
            //			receive_pairs_iteration (unit_ref_i);
            //		});
            //	}

            // TODO: READ_SOURCE é necessário ? Não no map feeder. Tirar fatia de Task_binding data ...

            Task_binding_data.TraceFlag = true;
            Task_binding_data.invoke(ITaskPortData.READ_SOURCE);
            // Do nothing ...


            IList <IKVPairInstance <IInteger, GIF> > buffer;
            object buffer_obj;

            CompletedStatus status;


            do
            {
                IActionFuture sync_perform;

                Console.WriteLine(this.Rank + ": SPLITTER MAP FEEDER - BEFORE READ_CHUNK");

                Task_binding_split_first.invoke(ITaskPortAdvance.READ_CHUNK);                   //****
                Task_binding_split_first.invoke(ITaskPortAdvance.PERFORM, out sync_perform);

                IDictionary <object, IIteratorInstance <GIF> > kv_cache = new Dictionary <object, IIteratorInstance <GIF> > ();

                Console.WriteLine(this.Rank + ": SPLITTER MAP FEEDER !!! PERFORM OK !");

                Split_channel.Receive(unit_ref_source, MPI.Communicator.anyTag, out buffer, out status);

                Console.WriteLine(this.Rank + ": CHUNK PAIRS RECEIVED !!! from source buffer.Count=" + buffer.Count);

                //foreach (IKVPairInstance<IInteger,GIF> kv in buffer)
                //	output_instance_gif.put (kv);

                foreach (IKVPairInstance <IInteger, GIF> kv in buffer)
                {
                    IIteratorInstance <GIF> iterator = null;
                    if (!kv_cache.ContainsKey(kv.Key))
                    {
                        iterator = Value_factory_gif.newIteratorInstance();
                        kv_cache.Add(kv.Key, iterator);
                        IKVPairInstance <IInteger, IIterator <GIF> > item = (IKVPairInstance <IInteger, IIterator <GIF> >)Output_gifs.createItem();
                        item.Key   = kv.Key;
                        item.Value = iterator;
                        output_instance_gifs.put(item);
                    }
                    else
                    {
                        kv_cache.TryGetValue(kv.Key, out iterator);
                    }

                    iterator.put(kv.Value);
                }

                output_instance_gifs.finish();
                foreach (IIteratorInstance <IValue> iterator in kv_cache.Values)
                {
                    iterator.finish();
                }

                sync_perform.wait();

                // CHUNK_READY
                Console.WriteLine(this.Rank + ": SPLITTER MAP FEEDER 1");

                Task_binding_split_first.invoke(ITaskPortAdvance.CHUNK_READY);

                Console.WriteLine(this.Rank + ": SPLITTER MAP FEEDER 2");
            } while (status.Tag != TAG_SPLIT_END_CHUNK);

            output_instance_gifs.finish();

            Console.WriteLine(this.Rank + ": FINISH READING CHUNKS OF SOURCE");
        }
        public void iterate()
        {
            IList <IKVPairInstance <IKey, IValue> > buffer;
            object          buffer_obj;
            CompletedStatus status;

            Console.WriteLine(this.GlobalRank + ": STARTING SPLITTER ITERATE...1");
            output_instance   = (IIteratorInstance <IKVPair <IKey, IIterator <IValue> > >)Output.Instance;
            Feed_pairs.Server = output_instance;
            Console.WriteLine(this.GlobalRank + ": STARTING SPLITTER ITERATE...2");

            IDictionary <int, Tuple <int, int> > unit_ref = new Dictionary <int, Tuple <int, int> > ();

            Console.WriteLine(this.GlobalRank + ": STARTING SPLITTER ...3");
            // RECEIVE PAIRS FROM THE REDUCERS (next iterations)
            int senders_size = 0;

            foreach (int i in this.FacetIndexes[FACET_REDUCE])
            {
                Console.WriteLine(this.GlobalRank + ": STARTING SPLITTER ...4 -- i=" + i);
                int nr0 = senders_size;
                senders_size += this.UnitSizeInFacet [i] ["gusty_collector"];
                for (int k = 0, j = nr0; j < senders_size; k++, j++)
                {
                    unit_ref [j] = new Tuple <int, int> (i, k);
                }
            }

            bool end_computation = false;

            while (!end_computation)
            {
                end_computation = true;
                int count_finished_streams = 0;

                while (count_finished_streams < senders_size)
                {
                    IActionFuture sync_perform;

                    Console.WriteLine(this.Rank + ": SPLITTER MAP FEEDER NEXT 1");

                    Task_binding_split_next.invoke(ITaskPortAdvance.READ_CHUNK);
                    Task_binding_split_next.invoke(ITaskPortAdvance.PERFORM, out sync_perform);

                    IDictionary <object, IIteratorInstance <IValue> > kv_cache = new Dictionary <object, IIteratorInstance <IValue> > ();

                    Console.WriteLine(this.Rank + ": SPLITTER MAP FEEDER NEXT 2");

                    for (int i = 0; i < senders_size; i++)
                    {
                        Console.WriteLine(this.Rank + ": SPLITTER MAP FEEDER NEXT LOOP - before receive");

                        Split_channel.Receive(unit_ref [i], MPI.Communicator.anyTag, out buffer_obj, out status);

                        Console.WriteLine(this.Rank + ": CHUNK PAIRS RECEIVED !!! from gusty_collector of index " + i + " / count_finished_streams=" + count_finished_streams);

                        if (status.Tag == TAG_SPLIT_END_CHUNK)
                        {
                            count_finished_streams++;
                        }
                        else
                        {
                            end_computation = false;
                        }

                        try {
                            buffer = (IList <IKVPairInstance <IKey, IValue> >)buffer_obj;

                            //foreach (IKVPairInstance<IKey,IValue> kv in buffer)
                            //	output_instance.put (kv);

                            foreach (IKVPairInstance <IKey, IValue> kv in buffer)
                            {
                                IIteratorInstance <IValue> iterator = null;
                                if (!kv_cache.ContainsKey(kv.Key))
                                {
                                    iterator = Value_factory.newIteratorInstance();
                                    kv_cache.Add(kv.Key, iterator);
                                    IKVPairInstance <IKey, IIterator <IValue> > item = (IKVPairInstance <IKey, IIterator <IValue> >)Output.createItem();
                                    item.Key   = kv.Key;
                                    item.Value = iterator;
                                    output_instance.put(item);
                                }
                                else
                                {
                                    kv_cache.TryGetValue(kv.Key, out iterator);
                                }

                                iterator.put(kv.Value);
                            }
                        } catch (InvalidCastException e) {
                            Console.WriteLine("SPLITTER MAPPER: incompatible input !");
                            count_finished_streams++;
                        }
                    }

                    output_instance.finish();
                    foreach (IIteratorInstance <IValue> iterator in kv_cache.Values)
                    {
                        iterator.finish();
                    }

                    Console.WriteLine(this.Rank + ": SPLITTER MAP FEEDER NEXT 3");

                    sync_perform.wait();

                    Console.WriteLine(this.Rank + ": SPLITTER MAP FEEDER NEXT 4");

                    // CHUNK_READY
                    Task_binding_split_next.invoke(ITaskPortAdvance.CHUNK_READY);

                    Console.WriteLine(this.Rank + ": SPLITTER MAP FEEDER NEXT 5");
                }
            }

            Console.WriteLine(this.Rank + ": SPLITTER MAP FEEDER FINISH 1 !");

            Task_binding_data.invoke(ITaskPortData.TERMINATE);
            Task_binding_data.invoke(ITaskPortData.WRITE_SINK);

            Console.WriteLine(this.Rank + ": SPLITTER MAP FEEDER FINISH 2 !");
        }