efex_data_formats.vhd

Go to the documentation of this file.

 
 
 
library IEEE;
use IEEE.STD_LOGIC_1164.all;
 
use IEEE.NUMERIC_STD.all;
library algolib;
use algolib.AlgoDataTypes.all;
use algolib.DataTypes.all;
 
library TOB_rdout_lib;
use TOB_rdout_lib.TOB_rdout_ip_pkg.all;
use TOB_rdout_lib.data_type_pkg.all;
 
package EfexDataFormats is
 
  type enable_em_chan_type is array (0 to 39) of integer;
  type enable_had_chan_type is array (0 to 17) of integer;
  type enable_spare_chan_type is array (0 to 5) of integer;
 
  constant EN_EG1 : enable_em_chan_type := (34, 32, 36, 30, 37, 24, 39, 22, 26, 28, -- this array is (0 to 39)
                                            31, 27, 38, 29, 35, 23, 33, 25, 20, 21,
                                            14, 13, 15, 11, 17, 12, 19, 10, 18, 16,
                                            05, 01, 06, 02, 08, 04, 07, 00, 09, 03);
  constant EN_HAD1 : enable_had_chan_type := (55, 56, 54, 59, 57, 58,
                                              42, 43, 40, 48, 41, 51,
                                              44, 46, 45, 50, 47, 49);
  constant EN_SPR1 : enable_spare_chan_type := (52, 53, 60, 61, 62, 63);
 
  constant EN_EG2 : enable_em_chan_type := (34, 36, 30, 35, 31, 38, 33, 39, 32, 37, -- this array is (0 to 39)
                                            29, 28, 26, 27, 23, 25, 21, 24, 20, 22,
                                            10, 11, 19, 12, 16, 13, 18, 15, 17, 14,
                                            00, 09, 01, 07, 05, 08, 03, 04, 02, 06);
  constant EN_HAD2 : enable_had_chan_type := (58, 56, 61, 55, 59, 52,
                                              63, 54, 62, 53, 60, 57,
                                              49, 48, 47, 46, 45, 44);
  constant EN_SPR2 : enable_spare_chan_type := (63, 58, 51, 50, 61, 56);
 
  constant EN_EG3 : enable_em_chan_type := (54, 52, 51, 47, 49, 44, 50, 46, 45, 48, -- this array is (0 to 39)
                                            57, 60, 62, 56, 63, 53, 61, 58, 59, 55,
                                            21, 22, 23, 20, 25, 24, 27, 26, 18, 19,
                                            11, 16, 08, 17, 09, 10, 14, 12, 13, 15);
  constant EN_HAD3 : enable_had_chan_type := (39, 38, 30, 31, 37, 36,
                                              35, 29, 34, 33, 32, 28,
                                              01, 05, 06, 04, 07, 00);
  constant EN_SPR3 : enable_spare_chan_type := (02, 03, 40, 41, 42, 4);
 
  constant EN_EG4 : enable_em_chan_type := (10, 18, 11, 19, 13, 17, 12, 16, 14, 15, -- this array is (0 to 39)
                                            00, 08, 01, 09, 03, 06, 02, 07, 04, 05,
                                            37, 38, 36, 42, 34, 43, 35, 41, 40, 39,
                                            31, 27, 24, 30, 25, 33, 26, 29, 28, 32);
  constant EN_HAD4 : enable_had_chan_type := (61, 60, 23, 22, 21, 20,
                                              54, 48, 49, 55, 50, 51,
                                              58, 52, 59, 53, 56, 57);
--  constant EN_SPR4 : enable_spare_chan_type := (63, 62, 47, 46, 45, 44, 21, 20);
 
 
  -- Define the number of fibres needed to cover the environment area processed by an eFEX FPGA,
  -- in eta and Phi...
 
  constant NUM_FIB_Em_ETA : integer := 4;
  constant NUM_FIB_Em_PHI : integer := 10;
 
  constant NUM_FIB_Had_ETA : integer := 3;
  constant NUM_FIB_Had_PHI : integer := 6;
 
  constant NUM_FIB_SPARE : integer := 8;
 
  constant N_MGT : integer := 64;
 
  type mgt_data_in is array (N_MGT-1 downto 0) of std_logic_vector(31 downto 0);
  type mgt_data_out is array (N_MGT-1 downto 0) of std_logic_vector(227 downto 0);
  type ram_data_in is array (N_MGT-1 downto 0) of std_logic_vector(227 downto 0);
  -- define types to hold the fibre data
 
  type FibreColumnEm is array(NUM_FIB_Em_PHI-1 downto 0) of std_logic_vector(227 downto 0);
 
  type FibreAllEm is array(NUM_FIB_Em_ETA-1 downto 0) of FibreColumnEm;
 
  type FibreColumnHad is array(NUM_FIB_Had_PHI-1 downto 0) of std_logic_vector(227 downto 0);
 
  type FibreAllHad is array(NUM_FIB_Had_ETA-1 downto 0) of FibreColumnHad;
 
  type FibreAllSpare is array(NUM_FIB_SPARE-1 downto 0) of std_logic_vector(227 downto 0);
 
  subtype SuperCell is std_logic_vector(9 downto 0);
 
  type SuperCellData is array(19 downto 0) of SuperCell;
  type SuperCells is record
    Data    : SuperCellData;
    CRC     : std_logic_vector(8 downto 0);
    BCID    : BCID_t;
    Quality : std_logic_vector(7 downto 0);
  end record;
 
 
  function AlgoTowerBuilder
    (
      EmDataIn     : FibreAllEm;
      HadDataIn    : FibreAllHad;
      SpareDataIn  : FibreAllSpare;
      eFEXPosition : std_logic_vector(31 downto 0)
      )
    return Algoinput;
 
  function MGT_to_SuperCells (MGT : std_logic_vector(227 downto 0)) return SuperCells;
 
  function to_raw_data(em : FibreAllEm; had : FibreAllHad) return RAW_data_227_type;
 
 
    -- Inputs:
    -- Outputs:  procedure FibreArrayBuilder (
    signal fpga_number : in  integer;
    signal MGT_DATA    : in  mgt_data_out;
    signal EmData      : out FibreAllEm;
    signal HadData     : out FibreAllHad;
    signal SpareData   : out FibreAllSpare
    );
 
  function ReadoutMGTEnable (fpga_number : integer; mgt_enable_in : std_logic_vector(63 downto 0)) return std_logic_vector;
    
  function f_efex_position (fpga_number : integer; efex_position : integer) return std_logic_vector;
  
end EfexDataFormats;
 
package body EfexDataFormats is
 
  function MGT_to_SuperCells (MGT : std_logic_vector(227 downto 0)) return SuperCells is
    variable SC : SuperCells;
  begin
    SC.Quality := MGT(7 downto 0);
    SC.CRC     := MGT(223 downto 215);
    
    if MGT(226) = '1' then  -- alignment frame flag
        SC.BCID    := MGT(198 downto 192);
        -- the whole BCID could be retrieved if MGT(226) = '1' MGT(203 downto 192)      
    else
        SC.BCID    := MGT(9 downto 8) & MGT(31 downto 30) & MGT(214 downto 212);
    end if;
   
    if MGT(227 downto 224) = "0000" then -- if no error and no alignment frame
        SC.Data(0) := MGT(19 downto 10);
        SC.Data(1) := MGT(29 downto 20);
    
        SC.Data(2) := MGT(41 downto 32);
        SC.Data(3) := MGT(51 downto 42);
        SC.Data(4) := MGT(61 downto 52);
    
        SC.Data(5) := MGT(73 downto 64);
        SC.Data(6) := MGT(83 downto 74);
        SC.Data(7) := MGT(93 downto 84);
    
        SC.Data(8)  := MGT(105 downto 96);
        SC.Data(9)  := MGT(115 downto 106);
        SC.Data(10) := MGT(125 downto 116);
    
        SC.Data(11) := MGT(137 downto 128);
        SC.Data(12) := MGT(147 downto 138);
        SC.Data(13) := MGT(157 downto 148);
    
        SC.Data(14) := MGT(169 downto 160);
        SC.Data(15) := MGT(179 downto 170);
        SC.Data(16) := MGT(189 downto 180);
    
        SC.Data(17) := MGT(201 downto 192);
        SC.Data(18) := MGT(211 downto 202);
    
        SC.Data(19) := MGT(63 downto 62)&MGT(95 downto 94)&MGT(127 downto 126)&MGT(159 downto 158)&MGT(191 downto 190);
    else
        SC.Data := (others => (others => '0'));
    end if;
    
    return SC;
  end;
 
  function AlgoTowerBuilder
    (
      EmDataIn     : FibreAllEm;
      HadDataIn    : FibreAllHad;
      SpareDataIn  : FibreAllSpare;
      eFEXPosition : std_logic_vector(31 downto 0)
      )
    return Algoinput is
 
    variable AlgoData                     : AlgoInput;
    variable Position_on_eta_edge         : std_logic;
    variable Position_on_eta_left_edge    : std_logic;
    variable Position_positive_eta_left   : std_logic;
    variable Position_positive_eta_right  : std_logic;
    variable Position_positive_eta_centre : std_logic;
    variable Position_hadronic            : std_logic_vector(2 downto 0);  --! 0 Centre, 1 Near negative eta, 2 Near positive Eta, 3 Far negative eta, 4 Far positive eta
 
 
 
  begin
 
    if eFEXPosition(EM_POSITION_ETA_ON_EDGE) = '1' then
      Position_on_eta_edge := '1';
      if eFEXPosition(EM_POSITION_ETA_ON_LEFT_EDGE) = '1' then
        Position_on_eta_left_edge := '1';
      else
        Position_on_eta_left_edge := '0';
      end if;
    else
      Position_on_eta_edge      := '0';
      Position_on_eta_left_edge := '0';
    end if;
 
    Position_positive_eta_left   := eFEXPosition(EM_POSITION_POSITIVE_ETA_LEFT);
    Position_positive_eta_centre := eFEXPosition(EM_POSITION_POSITIVE_ETA_CENTRE);
    Position_positive_eta_right  := eFEXPosition(EM_POSITION_POSITIVE_ETA_RIGHT);
    Position_hadronic            := eFEXPosition(HADRONIC_POSITION_BIT_END downto HADRONIC_POSITION_BIT_START);
 
 
    --ECal (2 TTs per MGT)
    for phi in 0 to NUM_FIB_Em_PHI-1 loop
      -- Eta = 0
      if Position_positive_eta_left = '1' then
        AlgoData(0)(phi).Layer0(0) := MGT_to_SuperCells(EmDataIn(0)(phi)).Data(14);
        for i in 0 to 3 loop
          AlgoData(0)(phi).Layer1(i) := MGT_to_SuperCells(EmDataIn(0)(phi)).Data(i + 15);
          AlgoData(0)(phi).Layer2(i) := MGT_to_SuperCells(EmDataIn(0)(phi)).Data(i + 4);
        end loop;
        AlgoData(0)(phi).Layer3(0) := MGT_to_SuperCells(EmDataIn(0)(phi)).Data(19);
      else
        AlgoData(0)(phi).Layer0(0) := MGT_to_SuperCells(EmDataIn(0)(phi)).Data(8);
        for i in 0 to 3 loop
          AlgoData(0)(phi).Layer1(i) := MGT_to_SuperCells(EmDataIn(0)(phi)).Data(i + 9);
          AlgoData(0)(phi).Layer2(i) := MGT_to_SuperCells(EmDataIn(0)(phi)).Data(i + 0);
        end loop;
        AlgoData(0)(phi).Layer3(0) := MGT_to_SuperCells(EmDataIn(0)(phi)).Data(13);
      end if;
 
      -- Eta = 1,2,3,4 or 4,3,2,1
      if Position_positive_eta_centre = '1' then
        AlgoData(1)(phi).Layer0(0) := MGT_to_SuperCells(EmDataIn(1)(phi)).Data(8);
        AlgoData(2)(phi).Layer0(0) := MGT_to_SuperCells(EmDataIn(1)(phi)).Data(14);
        AlgoData(3)(phi).Layer0(0) := MGT_to_SuperCells(EmDataIn(2)(phi)).Data(8);
        AlgoData(4)(phi).Layer0(0) := MGT_to_SuperCells(EmDataIn(2)(phi)).Data(14);
 
        for i in 0 to 3 loop
          AlgoData(1)(phi).Layer1(i) := MGT_to_SuperCells(EmDataIn(1)(phi)).Data(i + 9);
          AlgoData(1)(phi).Layer2(i) := MGT_to_SuperCells(EmDataIn(1)(phi)).Data(i + 0);
          AlgoData(2)(phi).Layer1(i) := MGT_to_SuperCells(EmDataIn(1)(phi)).Data(i + 15);
          AlgoData(2)(phi).Layer2(i) := MGT_to_SuperCells(EmDataIn(1)(phi)).Data(i + 4);
          AlgoData(3)(phi).Layer1(i) := MGT_to_SuperCells(EmDataIn(2)(phi)).Data(i + 9);
          AlgoData(3)(phi).Layer2(i) := MGT_to_SuperCells(EmDataIn(2)(phi)).Data(i + 0);
          AlgoData(4)(phi).Layer1(i) := MGT_to_SuperCells(EmDataIn(2)(phi)).Data(i + 15);
          AlgoData(4)(phi).Layer2(i) := MGT_to_SuperCells(EmDataIn(2)(phi)).Data(i + 4);
        end loop;
        AlgoData(1)(phi).Layer3(0) := MGT_to_SuperCells(EmDataIn(1)(phi)).Data(13);
        AlgoData(2)(phi).Layer3(0) := MGT_to_SuperCells(EmDataIn(1)(phi)).Data(19);
        AlgoData(3)(phi).Layer3(0) := MGT_to_SuperCells(EmDataIn(2)(phi)).Data(13);
        AlgoData(4)(phi).Layer3(0) := MGT_to_SuperCells(EmDataIn(2)(phi)).Data(19);
 
      else
        AlgoData(1)(phi).Layer0(0) := MGT_to_SuperCells(EmDataIn(1)(phi)).Data(14);
        AlgoData(2)(phi).Layer0(0) := MGT_to_SuperCells(EmDataIn(1)(phi)).Data(8);
        AlgoData(3)(phi).Layer0(0) := MGT_to_SuperCells(EmDataIn(2)(phi)).Data(14);
        AlgoData(4)(phi).Layer0(0) := MGT_to_SuperCells(EmDataIn(2)(phi)).Data(8);
 
        for i in 0 to 3 loop
          AlgoData(1)(phi).Layer1(i) := MGT_to_SuperCells(EmDataIn(1)(phi)).Data(i + 15);
          AlgoData(1)(phi).Layer2(i) := MGT_to_SuperCells(EmDataIn(1)(phi)).Data(i + 4);
          AlgoData(2)(phi).Layer1(i) := MGT_to_SuperCells(EmDataIn(1)(phi)).Data(i + 9);
          AlgoData(2)(phi).Layer2(i) := MGT_to_SuperCells(EmDataIn(1)(phi)).Data(i + 0);
          AlgoData(3)(phi).Layer1(i) := MGT_to_SuperCells(EmDataIn(2)(phi)).Data(i + 15);
          AlgoData(3)(phi).Layer2(i) := MGT_to_SuperCells(EmDataIn(2)(phi)).Data(i + 4);
          AlgoData(4)(phi).Layer1(i) := MGT_to_SuperCells(EmDataIn(2)(phi)).Data(i + 9);
          AlgoData(4)(phi).Layer2(i) := MGT_to_SuperCells(EmDataIn(2)(phi)).Data(i + 0);
        end loop;
        AlgoData(1)(phi).Layer3(0) := MGT_to_SuperCells(EmDataIn(1)(phi)).Data(19);
        AlgoData(2)(phi).Layer3(0) := MGT_to_SuperCells(EmDataIn(1)(phi)).Data(13);
        AlgoData(3)(phi).Layer3(0) := MGT_to_SuperCells(EmDataIn(2)(phi)).Data(19);
        AlgoData(4)(phi).Layer3(0) := MGT_to_SuperCells(EmDataIn(2)(phi)).Data(13);
      end if;
 
      -- Eta = 5
      if Position_positive_eta_right = '1' then
        AlgoData(5)(phi).Layer0(0) := MGT_to_SuperCells(EmDataIn(3)(phi)).Data(8);
        for i in 0 to 3 loop
          AlgoData(5)(phi).Layer1(i) := MGT_to_SuperCells(EmDataIn(3)(phi)).Data(i + 9);
          AlgoData(5)(phi).Layer2(i) := MGT_to_SuperCells(EmDataIn(3)(phi)).Data(i + 0);
        end loop;
        AlgoData(5)(phi).Layer3(0) := MGT_to_SuperCells(EmDataIn(3)(phi)).Data(13);
      else
        AlgoData(5)(phi).Layer0(0) := MGT_to_SuperCells(EmDataIn(3)(phi)).Data(14);
        for i in 0 to 3 loop
          AlgoData(5)(phi).Layer1(i) := MGT_to_SuperCells(EmDataIn(3)(phi)).Data(i + 15);
          AlgoData(5)(phi).Layer2(i) := MGT_to_SuperCells(EmDataIn(3)(phi)).Data(i + 4);
        end loop;
        AlgoData(5)(phi).Layer3(0) := MGT_to_SuperCells(EmDataIn(3)(phi)).Data(19);
      end if;
    end loop;
 
    -- Replace AlgoData(0) or AlgoData(5) in case f eFEX on edge
    if Position_on_eta_edge = '1' and Position_on_eta_left_edge = '1' then
      AlgoData(0)(0).Layer0(0) := MGT_to_SuperCells(EmDataIn(0)(0)).Data(18);
      AlgoData(0)(1).Layer0(0) := MGT_to_SuperCells(EmDataIn(0)(1)).Data(12);
      AlgoData(0)(2).Layer0(0) := MGT_to_SuperCells(EmDataIn(0)(1)).Data(18);
      AlgoData(0)(3).Layer0(0) := MGT_to_SuperCells(EmDataIn(0)(2)).Data(12);
      AlgoData(0)(4).Layer0(0) := MGT_to_SuperCells(EmDataIn(0)(2)).Data(18);
      AlgoData(0)(5).Layer0(0) := MGT_to_SuperCells(EmDataIn(0)(3)).Data(12);
      AlgoData(0)(6).Layer0(0) := MGT_to_SuperCells(EmDataIn(0)(3)).Data(18);
      AlgoData(0)(7).Layer0(0) := MGT_to_SuperCells(EmDataIn(0)(4)).Data(12);
      AlgoData(0)(8).Layer0(0) := MGT_to_SuperCells(EmDataIn(0)(4)).Data(18);
      AlgoData(0)(9).Layer0(0) := MGT_to_SuperCells(EmDataIn(0)(5)).Data(12);
      for i in 0 to 9 loop
        AlgoData(0)(i).Layer1 := (others => (others => '0'));
      end loop;
 
      for i in 0 to 3 loop
        AlgoData(0)(0).Layer2(i) := MGT_to_SuperCells(EmDataIn(0)(0)).Data(i + 4);
        AlgoData(0)(1).Layer2(i) := MGT_to_SuperCells(EmDataIn(0)(1)).Data(i);
        AlgoData(0)(2).Layer2(i) := MGT_to_SuperCells(EmDataIn(0)(1)).Data(i + 4);
        AlgoData(0)(3).Layer2(i) := MGT_to_SuperCells(EmDataIn(0)(2)).Data(i);
        AlgoData(0)(4).Layer2(i) := MGT_to_SuperCells(EmDataIn(0)(2)).Data(i + 4);
        AlgoData(0)(5).Layer2(i) := MGT_to_SuperCells(EmDataIn(0)(3)).Data(i);
        AlgoData(0)(6).Layer2(i) := MGT_to_SuperCells(EmDataIn(0)(3)).Data(i + 4);
        AlgoData(0)(7).Layer2(i) := MGT_to_SuperCells(EmDataIn(0)(4)).Data(i);
        AlgoData(0)(8).Layer2(i) := MGT_to_SuperCells(EmDataIn(0)(4)).Data(i + 4);
        AlgoData(0)(9).Layer2(i) := MGT_to_SuperCells(EmDataIn(0)(5)).Data(i);
      end loop;
 
      AlgoData(0)(0).Layer3(0) := MGT_to_SuperCells(EmDataIn(0)(0)).Data(19);
      AlgoData(0)(1).Layer3(0) := MGT_to_SuperCells(EmDataIn(0)(1)).Data(13);
      AlgoData(0)(2).Layer3(0) := MGT_to_SuperCells(EmDataIn(0)(1)).Data(19);
      AlgoData(0)(3).Layer3(0) := MGT_to_SuperCells(EmDataIn(0)(2)).Data(13);
      AlgoData(0)(4).Layer3(0) := MGT_to_SuperCells(EmDataIn(0)(2)).Data(19);
      AlgoData(0)(5).Layer3(0) := MGT_to_SuperCells(EmDataIn(0)(3)).Data(13);
      AlgoData(0)(6).Layer3(0) := MGT_to_SuperCells(EmDataIn(0)(3)).Data(19);
      AlgoData(0)(7).Layer3(0) := MGT_to_SuperCells(EmDataIn(0)(4)).Data(13);
      AlgoData(0)(8).Layer3(0) := MGT_to_SuperCells(EmDataIn(0)(4)).Data(19);
      AlgoData(0)(9).Layer3(0) := MGT_to_SuperCells(EmDataIn(0)(5)).Data(13);
 
    elsif Position_on_eta_edge = '1' and Position_on_eta_left_edge = '0' then
 
      AlgoData(5)(0).Layer0(0) := MGT_to_SuperCells(EmDataIn(3)(0)).Data(18);
      AlgoData(5)(1).Layer0(0) := MGT_to_SuperCells(EmDataIn(3)(1)).Data(12);
      AlgoData(5)(2).Layer0(0) := MGT_to_SuperCells(EmDataIn(3)(1)).Data(18);
      AlgoData(5)(3).Layer0(0) := MGT_to_SuperCells(EmDataIn(3)(2)).Data(12);
      AlgoData(5)(4).Layer0(0) := MGT_to_SuperCells(EmDataIn(3)(2)).Data(18);
      AlgoData(5)(5).Layer0(0) := MGT_to_SuperCells(EmDataIn(3)(3)).Data(12);
      AlgoData(5)(6).Layer0(0) := MGT_to_SuperCells(EmDataIn(3)(3)).Data(18);
      AlgoData(5)(7).Layer0(0) := MGT_to_SuperCells(EmDataIn(3)(4)).Data(12);
      AlgoData(5)(8).Layer0(0) := MGT_to_SuperCells(EmDataIn(3)(4)).Data(18);
      AlgoData(5)(9).Layer0(0) := MGT_to_SuperCells(EmDataIn(3)(5)).Data(12);
      for i in 0 to 9 loop
        AlgoData(5)(i).Layer1 := (others => (others => '0'));
      end loop;
 
      for i in 0 to 3 loop
        AlgoData(5)(0).Layer2(i) := MGT_to_SuperCells(EmDataIn(3)(0)).Data(i + 4);
        AlgoData(5)(1).Layer2(i) := MGT_to_SuperCells(EmDataIn(3)(1)).Data(i);
        AlgoData(5)(2).Layer2(i) := MGT_to_SuperCells(EmDataIn(3)(1)).Data(i + 4);
        AlgoData(5)(3).Layer2(i) := MGT_to_SuperCells(EmDataIn(3)(2)).Data(i);
        AlgoData(5)(4).Layer2(i) := MGT_to_SuperCells(EmDataIn(3)(2)).Data(i + 4);
        AlgoData(5)(5).Layer2(i) := MGT_to_SuperCells(EmDataIn(3)(3)).Data(i);
        AlgoData(5)(6).Layer2(i) := MGT_to_SuperCells(EmDataIn(3)(3)).Data(i + 4);
        AlgoData(5)(7).Layer2(i) := MGT_to_SuperCells(EmDataIn(3)(4)).Data(i);
        AlgoData(5)(8).Layer2(i) := MGT_to_SuperCells(EmDataIn(3)(4)).Data(i + 4);
        AlgoData(5)(9).Layer2(i) := MGT_to_SuperCells(EmDataIn(3)(5)).Data(i);
      end loop;
 
      AlgoData(5)(0).Layer3(0) := MGT_to_SuperCells(EmDataIn(3)(0)).Data(19);
      AlgoData(5)(1).Layer3(0) := MGT_to_SuperCells(EmDataIn(3)(1)).Data(13);
      AlgoData(5)(2).Layer3(0) := MGT_to_SuperCells(EmDataIn(3)(1)).Data(19);
      AlgoData(5)(3).Layer3(0) := MGT_to_SuperCells(EmDataIn(3)(2)).Data(13);
      AlgoData(5)(4).Layer3(0) := MGT_to_SuperCells(EmDataIn(3)(2)).Data(19);
      AlgoData(5)(5).Layer3(0) := MGT_to_SuperCells(EmDataIn(3)(3)).Data(13);
      AlgoData(5)(6).Layer3(0) := MGT_to_SuperCells(EmDataIn(3)(3)).Data(19);
      AlgoData(5)(7).Layer3(0) := MGT_to_SuperCells(EmDataIn(3)(4)).Data(13);
      AlgoData(5)(8).Layer3(0) := MGT_to_SuperCells(EmDataIn(3)(4)).Data(19);
      AlgoData(5)(9).Layer3(0) := MGT_to_SuperCells(EmDataIn(3)(5)).Data(13);
    end if;
 
 
    --Hadron (16 TTs per MGT of which 9 are used)
    --Position_hadronic =  0 Centre, 1 Near negative eta, 2 Near positive Eta, 3 Far negative eta, 4 Far positive eta
 
    -- Hadronic centre
    if Position_hadronic = "000" then
      -- Eta = 0
      AlgoData(0)(0).Hadron(0) := MGT_to_SuperCells(HadDataIn(0)(0)).Data(07);
      AlgoData(0)(1).Hadron(0) := MGT_to_SuperCells(HadDataIn(0)(0)).Data(10);
      AlgoData(0)(2).Hadron(0) := MGT_to_SuperCells(HadDataIn(0)(0)).Data(11);
      AlgoData(0)(3).Hadron(0) := MGT_to_SuperCells(HadDataIn(0)(1)).Data(06);
      AlgoData(0)(4).Hadron(0) := MGT_to_SuperCells(HadDataIn(0)(1)).Data(07);
      AlgoData(0)(5).Hadron(0) := MGT_to_SuperCells(HadDataIn(0)(1)).Data(10);
      AlgoData(0)(6).Hadron(0) := MGT_to_SuperCells(HadDataIn(0)(1)).Data(11);
      AlgoData(0)(7).Hadron(0) := MGT_to_SuperCells(HadDataIn(0)(2)).Data(06);
      AlgoData(0)(8).Hadron(0) := MGT_to_SuperCells(HadDataIn(0)(2)).Data(07);
      AlgoData(0)(9).Hadron(0) := MGT_to_SuperCells(HadDataIn(0)(2)).Data(10);
 
      -- Eta = 1
      AlgoData(1)(0).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(0)).Data(01);
      AlgoData(1)(1).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(0)).Data(12);
      AlgoData(1)(2).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(0)).Data(13);
      AlgoData(1)(3).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(1)).Data(00);
      AlgoData(1)(4).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(1)).Data(01);
      AlgoData(1)(5).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(1)).Data(12);
      AlgoData(1)(6).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(1)).Data(13);
      AlgoData(1)(7).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(2)).Data(00);
      AlgoData(1)(8).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(2)).Data(01);
      AlgoData(1)(9).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(2)).Data(12);
 
      -- Eta = 2
      AlgoData(2)(0).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(0)).Data(03);
      AlgoData(2)(1).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(0)).Data(14);
      AlgoData(2)(2).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(0)).Data(15);
      AlgoData(2)(3).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(1)).Data(02);
      AlgoData(2)(4).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(1)).Data(03);
      AlgoData(2)(5).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(1)).Data(14);
      AlgoData(2)(6).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(1)).Data(15);
      AlgoData(2)(7).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(2)).Data(02);
      AlgoData(2)(8).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(2)).Data(03);
      AlgoData(2)(9).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(2)).Data(14);
 
      -- Eta = 3
      AlgoData(3)(0).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(0)).Data(05);
      AlgoData(3)(1).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(0)).Data(08);
      AlgoData(3)(2).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(0)).Data(09);
      AlgoData(3)(3).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(1)).Data(04);
      AlgoData(3)(4).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(1)).Data(05);
      AlgoData(3)(5).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(1)).Data(08);
      AlgoData(3)(6).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(1)).Data(09);
      AlgoData(3)(7).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(2)).Data(04);
      AlgoData(3)(8).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(2)).Data(05);
      AlgoData(3)(9).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(2)).Data(08);
 
      -- Eta = 4
      AlgoData(4)(0).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(0)).Data(07);
      AlgoData(4)(1).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(0)).Data(10);
      AlgoData(4)(2).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(0)).Data(11);
      AlgoData(4)(3).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(1)).Data(06);
      AlgoData(4)(4).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(1)).Data(07);
      AlgoData(4)(5).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(1)).Data(10);
      AlgoData(4)(6).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(1)).Data(11);
      AlgoData(4)(7).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(2)).Data(06);
      AlgoData(4)(8).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(2)).Data(07);
      AlgoData(4)(9).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(2)).Data(10);
 
      -- Eta = 5
      AlgoData(5)(0).Hadron(0) := MGT_to_SuperCells(HadDataIn(2)(0)).Data(01);
      AlgoData(5)(1).Hadron(0) := MGT_to_SuperCells(HadDataIn(2)(0)).Data(12);
      AlgoData(5)(2).Hadron(0) := MGT_to_SuperCells(HadDataIn(2)(0)).Data(13);
      AlgoData(5)(3).Hadron(0) := MGT_to_SuperCells(HadDataIn(2)(1)).Data(00);
      AlgoData(5)(4).Hadron(0) := MGT_to_SuperCells(HadDataIn(2)(1)).Data(01);
      AlgoData(5)(5).Hadron(0) := MGT_to_SuperCells(HadDataIn(2)(1)).Data(12);
      AlgoData(5)(6).Hadron(0) := MGT_to_SuperCells(HadDataIn(2)(1)).Data(13);
      AlgoData(5)(7).Hadron(0) := MGT_to_SuperCells(HadDataIn(2)(2)).Data(00);
      AlgoData(5)(8).Hadron(0) := MGT_to_SuperCells(HadDataIn(2)(2)).Data(01);
      AlgoData(5)(9).Hadron(0) := MGT_to_SuperCells(HadDataIn(2)(2)).Data(12);
    end if;
 
    -- Hadronic near negative
    if Position_hadronic = "001" then
      -- Eta = 0
      AlgoData(0)(0).Hadron(0) := MGT_to_SuperCells(HadDataIn(0)(0)).Data(05);
      AlgoData(0)(1).Hadron(0) := MGT_to_SuperCells(HadDataIn(0)(0)).Data(09);
      AlgoData(0)(2).Hadron(0) := MGT_to_SuperCells(HadDataIn(0)(0)).Data(13);
      AlgoData(0)(3).Hadron(0) := MGT_to_SuperCells(HadDataIn(0)(1)).Data(01);
      AlgoData(0)(4).Hadron(0) := MGT_to_SuperCells(HadDataIn(0)(1)).Data(05);
      AlgoData(0)(5).Hadron(0) := MGT_to_SuperCells(HadDataIn(0)(1)).Data(09);
      AlgoData(0)(6).Hadron(0) := MGT_to_SuperCells(HadDataIn(0)(1)).Data(13);
      AlgoData(0)(7).Hadron(0) := MGT_to_SuperCells(HadDataIn(0)(2)).Data(01);
      AlgoData(0)(8).Hadron(0) := MGT_to_SuperCells(HadDataIn(0)(2)).Data(05);
      AlgoData(0)(9).Hadron(0) := MGT_to_SuperCells(HadDataIn(0)(2)).Data(09);
 
      -- Eta = 1
      AlgoData(1)(0).Hadron(0) := MGT_to_SuperCells(HadDataIn(0)(0)).Data(04);
      AlgoData(1)(1).Hadron(0) := MGT_to_SuperCells(HadDataIn(0)(0)).Data(08);
      AlgoData(1)(2).Hadron(0) := MGT_to_SuperCells(HadDataIn(0)(0)).Data(12);
      AlgoData(1)(3).Hadron(0) := MGT_to_SuperCells(HadDataIn(0)(1)).Data(00);
      AlgoData(1)(4).Hadron(0) := MGT_to_SuperCells(HadDataIn(0)(1)).Data(04);
      AlgoData(1)(5).Hadron(0) := MGT_to_SuperCells(HadDataIn(0)(1)).Data(08);
      AlgoData(1)(6).Hadron(0) := MGT_to_SuperCells(HadDataIn(0)(1)).Data(12);
      AlgoData(1)(7).Hadron(0) := MGT_to_SuperCells(HadDataIn(0)(2)).Data(00);
      AlgoData(1)(8).Hadron(0) := MGT_to_SuperCells(HadDataIn(0)(2)).Data(04);
      AlgoData(1)(9).Hadron(0) := MGT_to_SuperCells(HadDataIn(0)(2)).Data(08);
 
      -- Eta = 2
      AlgoData(2)(0).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(0)).Data(03);
      AlgoData(2)(1).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(0)).Data(14);
      AlgoData(2)(2).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(0)).Data(15);
      AlgoData(2)(3).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(1)).Data(02);
      AlgoData(2)(4).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(1)).Data(03);
      AlgoData(2)(5).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(1)).Data(14);
      AlgoData(2)(6).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(1)).Data(15);
      AlgoData(2)(7).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(2)).Data(02);
      AlgoData(2)(8).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(2)).Data(03);
      AlgoData(2)(9).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(2)).Data(14);
 
      -- Eta = 3
      AlgoData(3)(0).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(0)).Data(05);
      AlgoData(3)(1).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(0)).Data(08);
      AlgoData(3)(2).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(0)).Data(09);
      AlgoData(3)(3).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(1)).Data(04);
      AlgoData(3)(4).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(1)).Data(05);
      AlgoData(3)(5).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(1)).Data(08);
      AlgoData(3)(6).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(1)).Data(09);
      AlgoData(3)(7).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(2)).Data(04);
      AlgoData(3)(8).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(2)).Data(05);
      AlgoData(3)(9).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(2)).Data(08);
 
      -- Eta = 4
      AlgoData(4)(0).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(0)).Data(07);
      AlgoData(4)(1).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(0)).Data(10);
      AlgoData(4)(2).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(0)).Data(11);
      AlgoData(4)(3).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(1)).Data(06);
      AlgoData(4)(4).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(1)).Data(07);
      AlgoData(4)(5).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(1)).Data(10);
      AlgoData(4)(6).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(1)).Data(11);
      AlgoData(4)(7).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(2)).Data(06);
      AlgoData(4)(8).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(2)).Data(07);
      AlgoData(4)(9).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(2)).Data(10);
 
      -- Eta = 5
      AlgoData(5)(0).Hadron(0) := MGT_to_SuperCells(HadDataIn(2)(0)).Data(01);
      AlgoData(5)(1).Hadron(0) := MGT_to_SuperCells(HadDataIn(2)(0)).Data(12);
      AlgoData(5)(2).Hadron(0) := MGT_to_SuperCells(HadDataIn(2)(0)).Data(13);
      AlgoData(5)(3).Hadron(0) := MGT_to_SuperCells(HadDataIn(2)(1)).Data(00);
      AlgoData(5)(4).Hadron(0) := MGT_to_SuperCells(HadDataIn(2)(1)).Data(01);
      AlgoData(5)(5).Hadron(0) := MGT_to_SuperCells(HadDataIn(2)(1)).Data(12);
      AlgoData(5)(6).Hadron(0) := MGT_to_SuperCells(HadDataIn(2)(1)).Data(13);
      AlgoData(5)(7).Hadron(0) := MGT_to_SuperCells(HadDataIn(2)(2)).Data(00);
      AlgoData(5)(8).Hadron(0) := MGT_to_SuperCells(HadDataIn(2)(2)).Data(01);
      AlgoData(5)(9).Hadron(0) := MGT_to_SuperCells(HadDataIn(2)(2)).Data(12);
    end if;
 
    --Hadronic near positive
    if Position_hadronic = "010" then
      -- Eta = 0
      AlgoData(0)(0).Hadron(0) := MGT_to_SuperCells(HadDataIn(0)(0)).Data(07);
      AlgoData(0)(1).Hadron(0) := MGT_to_SuperCells(HadDataIn(0)(0)).Data(10);
      AlgoData(0)(2).Hadron(0) := MGT_to_SuperCells(HadDataIn(0)(0)).Data(11);
      AlgoData(0)(3).Hadron(0) := MGT_to_SuperCells(HadDataIn(0)(1)).Data(06);
      AlgoData(0)(4).Hadron(0) := MGT_to_SuperCells(HadDataIn(0)(1)).Data(07);
      AlgoData(0)(5).Hadron(0) := MGT_to_SuperCells(HadDataIn(0)(1)).Data(10);
      AlgoData(0)(6).Hadron(0) := MGT_to_SuperCells(HadDataIn(0)(1)).Data(11);
      AlgoData(0)(7).Hadron(0) := MGT_to_SuperCells(HadDataIn(0)(2)).Data(06);
      AlgoData(0)(8).Hadron(0) := MGT_to_SuperCells(HadDataIn(0)(2)).Data(07);
      AlgoData(0)(9).Hadron(0) := MGT_to_SuperCells(HadDataIn(0)(2)).Data(10);
 
      -- Eta = 1
      AlgoData(1)(0).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(0)).Data(01);
      AlgoData(1)(1).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(0)).Data(12);
      AlgoData(1)(2).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(0)).Data(13);
      AlgoData(1)(3).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(1)).Data(00);
      AlgoData(1)(4).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(1)).Data(01);
      AlgoData(1)(5).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(1)).Data(12);
      AlgoData(1)(6).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(1)).Data(13);
      AlgoData(1)(7).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(2)).Data(00);
      AlgoData(1)(8).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(2)).Data(01);
      AlgoData(1)(9).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(2)).Data(12);
 
      -- Eta = 2
      AlgoData(2)(0).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(0)).Data(03);
      AlgoData(2)(1).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(0)).Data(14);
      AlgoData(2)(2).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(0)).Data(15);
      AlgoData(2)(3).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(1)).Data(02);
      AlgoData(2)(4).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(1)).Data(03);
      AlgoData(2)(5).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(1)).Data(14);
      AlgoData(2)(6).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(1)).Data(15);
      AlgoData(2)(7).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(2)).Data(02);
      AlgoData(2)(8).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(2)).Data(03);
      AlgoData(2)(9).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(2)).Data(14);
 
      -- Eta = 3
      AlgoData(3)(0).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(0)).Data(05);
      AlgoData(3)(1).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(0)).Data(08);
      AlgoData(3)(2).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(0)).Data(09);
      AlgoData(3)(3).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(1)).Data(04);
      AlgoData(3)(4).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(1)).Data(05);
      AlgoData(3)(5).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(1)).Data(08);
      AlgoData(3)(6).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(1)).Data(09);
      AlgoData(3)(7).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(2)).Data(04);
      AlgoData(3)(8).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(2)).Data(05);
      AlgoData(3)(9).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(2)).Data(08);
 
      -- Eta = 4
      AlgoData(4)(0).Hadron(0) := MGT_to_SuperCells(HadDataIn(2)(0)).Data(04);
      AlgoData(4)(1).Hadron(0) := MGT_to_SuperCells(HadDataIn(2)(0)).Data(08);
      AlgoData(4)(2).Hadron(0) := MGT_to_SuperCells(HadDataIn(2)(0)).Data(12);
      AlgoData(4)(3).Hadron(0) := MGT_to_SuperCells(HadDataIn(2)(1)).Data(00);
      AlgoData(4)(4).Hadron(0) := MGT_to_SuperCells(HadDataIn(2)(1)).Data(04);
      AlgoData(4)(5).Hadron(0) := MGT_to_SuperCells(HadDataIn(2)(1)).Data(08);
      AlgoData(4)(6).Hadron(0) := MGT_to_SuperCells(HadDataIn(2)(1)).Data(12);
      AlgoData(4)(7).Hadron(0) := MGT_to_SuperCells(HadDataIn(2)(2)).Data(00);
      AlgoData(4)(8).Hadron(0) := MGT_to_SuperCells(HadDataIn(2)(2)).Data(04);
      AlgoData(4)(9).Hadron(0) := MGT_to_SuperCells(HadDataIn(2)(2)).Data(08);
 
      -- Eta = 5
      AlgoData(5)(0).Hadron(0) := MGT_to_SuperCells(HadDataIn(2)(0)).Data(05);
      AlgoData(5)(1).Hadron(0) := MGT_to_SuperCells(HadDataIn(2)(0)).Data(09);
      AlgoData(5)(2).Hadron(0) := MGT_to_SuperCells(HadDataIn(2)(0)).Data(13);
      AlgoData(5)(3).Hadron(0) := MGT_to_SuperCells(HadDataIn(2)(1)).Data(01);
      AlgoData(5)(4).Hadron(0) := MGT_to_SuperCells(HadDataIn(2)(1)).Data(05);
      AlgoData(5)(5).Hadron(0) := MGT_to_SuperCells(HadDataIn(2)(1)).Data(09);
      AlgoData(5)(6).Hadron(0) := MGT_to_SuperCells(HadDataIn(2)(1)).Data(13);
      AlgoData(5)(7).Hadron(0) := MGT_to_SuperCells(HadDataIn(2)(2)).Data(01);
      AlgoData(5)(8).Hadron(0) := MGT_to_SuperCells(HadDataIn(2)(2)).Data(05);
      AlgoData(5)(9).Hadron(0) := MGT_to_SuperCells(HadDataIn(2)(2)).Data(09);
    end if;
 
    -- Hadronic far negative
    if Position_hadronic = "011" then
      -- Eta = 0
      AlgoData(0)(0).Hadron(0) := MGT_to_SuperCells(HadDataIn(0)(0)).Data(05);
      AlgoData(0)(1).Hadron(0) := MGT_to_SuperCells(HadDataIn(0)(0)).Data(09);
      AlgoData(0)(2).Hadron(0) := MGT_to_SuperCells(HadDataIn(0)(0)).Data(13);
      AlgoData(0)(3).Hadron(0) := MGT_to_SuperCells(HadDataIn(0)(1)).Data(01);
      AlgoData(0)(4).Hadron(0) := MGT_to_SuperCells(HadDataIn(0)(1)).Data(05);
      AlgoData(0)(5).Hadron(0) := MGT_to_SuperCells(HadDataIn(0)(1)).Data(09);
      AlgoData(0)(6).Hadron(0) := MGT_to_SuperCells(HadDataIn(0)(1)).Data(13);
      AlgoData(0)(7).Hadron(0) := MGT_to_SuperCells(HadDataIn(0)(2)).Data(01);
      AlgoData(0)(8).Hadron(0) := MGT_to_SuperCells(HadDataIn(0)(2)).Data(05);
      AlgoData(0)(9).Hadron(0) := MGT_to_SuperCells(HadDataIn(0)(2)).Data(09);
 
      -- Eta = 1
      AlgoData(1)(0).Hadron(0) := MGT_to_SuperCells(HadDataIn(0)(0)).Data(04);
      AlgoData(1)(1).Hadron(0) := MGT_to_SuperCells(HadDataIn(0)(0)).Data(08);
      AlgoData(1)(2).Hadron(0) := MGT_to_SuperCells(HadDataIn(0)(0)).Data(12);
      AlgoData(1)(3).Hadron(0) := MGT_to_SuperCells(HadDataIn(0)(1)).Data(00);
      AlgoData(1)(4).Hadron(0) := MGT_to_SuperCells(HadDataIn(0)(1)).Data(04);
      AlgoData(1)(5).Hadron(0) := MGT_to_SuperCells(HadDataIn(0)(1)).Data(08);
      AlgoData(1)(6).Hadron(0) := MGT_to_SuperCells(HadDataIn(0)(1)).Data(12);
      AlgoData(1)(7).Hadron(0) := MGT_to_SuperCells(HadDataIn(0)(2)).Data(00);
      AlgoData(1)(8).Hadron(0) := MGT_to_SuperCells(HadDataIn(0)(2)).Data(04);
      AlgoData(1)(9).Hadron(0) := MGT_to_SuperCells(HadDataIn(0)(2)).Data(08);
 
      -- Eta = 2
      AlgoData(2)(0).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(0)).Data(07);
      AlgoData(2)(1).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(0)).Data(11);
      AlgoData(2)(2).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(0)).Data(15);
      AlgoData(2)(3).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(1)).Data(03);
      AlgoData(2)(4).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(1)).Data(07);
      AlgoData(2)(5).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(1)).Data(11);
      AlgoData(2)(6).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(1)).Data(15);
      AlgoData(2)(7).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(2)).Data(03);
      AlgoData(2)(8).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(2)).Data(07);
      AlgoData(2)(9).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(2)).Data(11);
 
      -- Eta = 3
      AlgoData(3)(0).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(0)).Data(06);
      AlgoData(3)(1).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(0)).Data(10);
      AlgoData(3)(2).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(0)).Data(14);
      AlgoData(3)(3).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(1)).Data(02);
      AlgoData(3)(4).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(1)).Data(06);
      AlgoData(3)(5).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(1)).Data(10);
      AlgoData(3)(6).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(1)).Data(14);
      AlgoData(3)(7).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(2)).Data(02);
      AlgoData(3)(8).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(2)).Data(06);
      AlgoData(3)(9).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(2)).Data(10);
 
      -- Eta = 4
      AlgoData(4)(0).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(0)).Data(05);
      AlgoData(4)(1).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(0)).Data(09);
      AlgoData(4)(2).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(0)).Data(13);
      AlgoData(4)(3).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(1)).Data(01);
      AlgoData(4)(4).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(1)).Data(05);
      AlgoData(4)(5).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(1)).Data(09);
      AlgoData(4)(6).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(1)).Data(13);
      AlgoData(4)(7).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(2)).Data(01);
      AlgoData(4)(8).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(2)).Data(05);
      AlgoData(4)(9).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(2)).Data(09);
 
      -- Eta = 5
      AlgoData(5)(0).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(0)).Data(04);
      AlgoData(5)(1).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(0)).Data(08);
      AlgoData(5)(2).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(0)).Data(12);
      AlgoData(5)(3).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(1)).Data(00);
      AlgoData(5)(4).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(1)).Data(04);
      AlgoData(5)(5).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(1)).Data(08);
      AlgoData(5)(6).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(1)).Data(12);
      AlgoData(5)(7).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(2)).Data(00);
      AlgoData(5)(8).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(2)).Data(04);
      AlgoData(5)(9).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(2)).Data(08);
    end if;
 
    -- Hadronic far positive
    if Position_hadronic = "100" then
      -- Eta = 0
      AlgoData(0)(0).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(0)).Data(04);
      AlgoData(0)(1).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(0)).Data(08);
      AlgoData(0)(2).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(0)).Data(12);
      AlgoData(0)(3).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(1)).Data(00);
      AlgoData(0)(4).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(1)).Data(04);
      AlgoData(0)(5).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(1)).Data(08);
      AlgoData(0)(6).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(1)).Data(12);
      AlgoData(0)(7).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(2)).Data(00);
      AlgoData(0)(8).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(2)).Data(04);
      AlgoData(0)(9).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(2)).Data(08);
 
      -- Eta = 1
      AlgoData(1)(0).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(0)).Data(05);
      AlgoData(1)(1).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(0)).Data(09);
      AlgoData(1)(2).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(0)).Data(13);
      AlgoData(1)(3).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(1)).Data(01);
      AlgoData(1)(4).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(1)).Data(05);
      AlgoData(1)(5).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(1)).Data(09);
      AlgoData(1)(6).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(1)).Data(13);
      AlgoData(1)(7).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(2)).Data(01);
      AlgoData(1)(8).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(2)).Data(05);
      AlgoData(1)(9).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(2)).Data(09);
 
      -- Eta = 2
      AlgoData(2)(0).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(0)).Data(06);
      AlgoData(2)(1).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(0)).Data(10);
      AlgoData(2)(2).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(0)).Data(14);
      AlgoData(2)(3).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(1)).Data(02);
      AlgoData(2)(4).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(1)).Data(06);
      AlgoData(2)(5).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(1)).Data(10);
      AlgoData(2)(6).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(1)).Data(14);
      AlgoData(2)(7).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(2)).Data(02);
      AlgoData(2)(8).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(2)).Data(06);
      AlgoData(2)(9).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(2)).Data(10);
 
      -- Eta = 3
      AlgoData(3)(0).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(0)).Data(07);
      AlgoData(3)(1).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(0)).Data(11);
      AlgoData(3)(2).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(0)).Data(15);
      AlgoData(3)(3).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(1)).Data(03);
      AlgoData(3)(4).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(1)).Data(07);
      AlgoData(3)(5).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(1)).Data(11);
      AlgoData(3)(6).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(1)).Data(15);
      AlgoData(3)(7).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(2)).Data(03);
      AlgoData(3)(8).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(2)).Data(07);
      AlgoData(3)(9).Hadron(0) := MGT_to_SuperCells(HadDataIn(1)(2)).Data(11);
 
      -- Eta = 4
      AlgoData(4)(0).Hadron(0) := MGT_to_SuperCells(HadDataIn(2)(0)).Data(04);
      AlgoData(4)(1).Hadron(0) := MGT_to_SuperCells(HadDataIn(2)(0)).Data(08);
      AlgoData(4)(2).Hadron(0) := MGT_to_SuperCells(HadDataIn(2)(0)).Data(12);
      AlgoData(4)(3).Hadron(0) := MGT_to_SuperCells(HadDataIn(2)(1)).Data(00);
      AlgoData(4)(4).Hadron(0) := MGT_to_SuperCells(HadDataIn(2)(1)).Data(04);
      AlgoData(4)(5).Hadron(0) := MGT_to_SuperCells(HadDataIn(2)(1)).Data(08);
      AlgoData(4)(6).Hadron(0) := MGT_to_SuperCells(HadDataIn(2)(1)).Data(12);
      AlgoData(4)(7).Hadron(0) := MGT_to_SuperCells(HadDataIn(2)(2)).Data(00);
      AlgoData(4)(8).Hadron(0) := MGT_to_SuperCells(HadDataIn(2)(2)).Data(04);
      AlgoData(4)(9).Hadron(0) := MGT_to_SuperCells(HadDataIn(2)(2)).Data(08);
 
      -- Eta = 5
      AlgoData(5)(0).Hadron(0) := MGT_to_SuperCells(HadDataIn(2)(0)).Data(05);
      AlgoData(5)(1).Hadron(0) := MGT_to_SuperCells(HadDataIn(2)(0)).Data(09);
      AlgoData(5)(2).Hadron(0) := MGT_to_SuperCells(HadDataIn(2)(0)).Data(13);
      AlgoData(5)(3).Hadron(0) := MGT_to_SuperCells(HadDataIn(2)(1)).Data(01);
      AlgoData(5)(4).Hadron(0) := MGT_to_SuperCells(HadDataIn(2)(1)).Data(05);
      AlgoData(5)(5).Hadron(0) := MGT_to_SuperCells(HadDataIn(2)(1)).Data(09);
      AlgoData(5)(6).Hadron(0) := MGT_to_SuperCells(HadDataIn(2)(1)).Data(13);
      AlgoData(5)(7).Hadron(0) := MGT_to_SuperCells(HadDataIn(2)(2)).Data(01);
      AlgoData(5)(8).Hadron(0) := MGT_to_SuperCells(HadDataIn(2)(2)).Data(05);
      AlgoData(5)(9).Hadron(0) := MGT_to_SuperCells(HadDataIn(2)(2)).Data(09);
    end if;
 
    return AlgoData;
  end AlgoTowerBuilder;
 
 
 
      -- Inputs:
      -- Outputs:  procedure FibreArrayBuilder
    (
      signal fpga_number : in  integer;
      signal MGT_DATA    : in  mgt_data_out;
      signal EmData      : out FibreAllEm;
      signal HadData     : out FibreAllHad;
      signal SpareData   : out FibreAllSpare
      ) is
    ----------
 
    variable EmData_int    : FibreAllEm;
    variable HadData_int   : FibreAllHad;
    variable SpareData_int : FibreAllSpare;
  begin
 
    if fpga_number = 1 then
      EmData_int := (
        (MGT_DATA(EN_EG1(00)), MGT_DATA(EN_EG1(01)), MGT_DATA(EN_EG1(02)), MGT_DATA(EN_EG1(03)), MGT_DATA(EN_EG1(04)), MGT_DATA(EN_EG1(05)), MGT_DATA(EN_EG1(06)), MGT_DATA(EN_EG1(07)), MGT_DATA(EN_EG1(08)), MGT_DATA(EN_EG1(09))),
        (MGT_DATA(EN_EG1(10)), MGT_DATA(EN_EG1(11)), MGT_DATA(EN_EG1(12)), MGT_DATA(EN_EG1(13)), MGT_DATA(EN_EG1(14)), MGT_DATA(EN_EG1(15)), MGT_DATA(EN_EG1(16)), MGT_DATA(EN_EG1(17)), MGT_DATA(EN_EG1(18)), MGT_DATA(EN_EG1(19))),
        (MGT_DATA(EN_EG1(20)), MGT_DATA(EN_EG1(21)), MGT_DATA(EN_EG1(22)), MGT_DATA(EN_EG1(23)), MGT_DATA(EN_EG1(24)), MGT_DATA(EN_EG1(25)), MGT_DATA(EN_EG1(26)), MGT_DATA(EN_EG1(27)), MGT_DATA(EN_EG1(28)), MGT_DATA(EN_EG1(29))),
        (MGT_DATA(EN_EG1(30)), MGT_DATA(EN_EG1(31)), MGT_DATA(EN_EG1(32)), MGT_DATA(EN_EG1(33)), MGT_DATA(EN_EG1(34)), MGT_DATA(EN_EG1(35)), MGT_DATA(EN_EG1(36)), MGT_DATA(EN_EG1(37)), MGT_DATA(EN_EG1(38)), MGT_DATA(EN_EG1(39)))
        );
      HadData_int := (
        (MGT_DATA(EN_HAD1(00)), MGT_DATA(EN_HAD1(01)), MGT_DATA(EN_HAD1(02)), MGT_DATA(EN_HAD1(03)), MGT_DATA(EN_HAD1(04)), MGT_DATA(EN_HAD1(05))),
        (MGT_DATA(EN_HAD1(06)), MGT_DATA(EN_HAD1(07)), MGT_DATA(EN_HAD1(08)), MGT_DATA(EN_HAD1(09)), MGT_DATA(EN_HAD1(10)), MGT_DATA(EN_HAD1(11))),
        (MGT_DATA(EN_HAD1(12)), MGT_DATA(EN_HAD1(13)), MGT_DATA(EN_HAD1(14)), MGT_DATA(EN_HAD1(15)), MGT_DATA(EN_HAD1(16)), MGT_DATA(EN_HAD1(17)))
        );
        
      SpareData_int := (others => (others => '0'));
 
    elsif fpga_number = 2 then
      EmData_int := (
        (MGT_DATA(EN_EG2(00)), MGT_DATA(EN_EG2(01)), MGT_DATA(EN_EG2(02)), MGT_DATA(EN_EG2(03)), MGT_DATA(EN_EG2(04)), MGT_DATA(EN_EG2(05)), MGT_DATA(EN_EG2(06)), MGT_DATA(EN_EG2(07)), MGT_DATA(EN_EG2(08)), MGT_DATA(EN_EG2(09))),
        (MGT_DATA(EN_EG2(10)), MGT_DATA(EN_EG2(11)), MGT_DATA(EN_EG2(12)), MGT_DATA(EN_EG2(13)), MGT_DATA(EN_EG2(14)), MGT_DATA(EN_EG2(15)), MGT_DATA(EN_EG2(16)), MGT_DATA(EN_EG2(17)), MGT_DATA(EN_EG2(18)), MGT_DATA(EN_EG2(19))),
        (MGT_DATA(EN_EG2(20)), MGT_DATA(EN_EG2(21)), MGT_DATA(EN_EG2(22)), MGT_DATA(EN_EG2(23)), MGT_DATA(EN_EG2(24)), MGT_DATA(EN_EG2(25)), MGT_DATA(EN_EG2(26)), MGT_DATA(EN_EG2(27)), MGT_DATA(EN_EG2(28)), MGT_DATA(EN_EG2(29))),
        (MGT_DATA(EN_EG2(30)), MGT_DATA(EN_EG2(31)), MGT_DATA(EN_EG2(32)), MGT_DATA(EN_EG2(33)), MGT_DATA(EN_EG2(34)), MGT_DATA(EN_EG2(35)), MGT_DATA(EN_EG2(36)), MGT_DATA(EN_EG2(37)), MGT_DATA(EN_EG2(38)), MGT_DATA(EN_EG2(39)))
        );
      HadData_int := (
        (MGT_DATA(EN_HAD2(00)), MGT_DATA(EN_HAD2(01)), MGT_DATA(EN_HAD2(02)), MGT_DATA(EN_HAD2(03)), MGT_DATA(EN_HAD2(04)), MGT_DATA(EN_HAD2(05))),
        (MGT_DATA(EN_HAD2(06)), MGT_DATA(EN_HAD2(07)), MGT_DATA(EN_HAD2(08)), MGT_DATA(EN_HAD2(09)), MGT_DATA(EN_HAD2(10)), MGT_DATA(EN_HAD2(11))),
        (MGT_DATA(EN_HAD2(12)), MGT_DATA(EN_HAD2(13)), MGT_DATA(EN_HAD2(14)), MGT_DATA(EN_HAD2(15)), MGT_DATA(EN_HAD2(16)), MGT_DATA(EN_HAD2(17)))
        );
      SpareData_int := (others => (others => '0'));
 
      elsif fpga_number = 3 then
      EmData_int := (
        (MGT_DATA(EN_EG3(00)), MGT_DATA(EN_EG3(01)), MGT_DATA(EN_EG3(02)), MGT_DATA(EN_EG3(03)), MGT_DATA(EN_EG3(04)), MGT_DATA(EN_EG3(05)), MGT_DATA(EN_EG3(06)), MGT_DATA(EN_EG3(07)), MGT_DATA(EN_EG3(08)), MGT_DATA(EN_EG3(09))),
        (MGT_DATA(EN_EG3(10)), MGT_DATA(EN_EG3(11)), MGT_DATA(EN_EG3(12)), MGT_DATA(EN_EG3(13)), MGT_DATA(EN_EG3(14)), MGT_DATA(EN_EG3(15)), MGT_DATA(EN_EG3(16)), MGT_DATA(EN_EG3(17)), MGT_DATA(EN_EG3(18)), MGT_DATA(EN_EG3(19))),
        (MGT_DATA(EN_EG3(20)), MGT_DATA(EN_EG3(21)), MGT_DATA(EN_EG3(22)), MGT_DATA(EN_EG3(23)), MGT_DATA(EN_EG3(24)), MGT_DATA(EN_EG3(25)), MGT_DATA(EN_EG3(26)), MGT_DATA(EN_EG3(27)), MGT_DATA(EN_EG3(28)), MGT_DATA(EN_EG3(29))),
        (MGT_DATA(EN_EG3(30)), MGT_DATA(EN_EG3(31)), MGT_DATA(EN_EG3(32)), MGT_DATA(EN_EG3(33)), MGT_DATA(EN_EG3(34)), MGT_DATA(EN_EG3(35)), MGT_DATA(EN_EG3(36)), MGT_DATA(EN_EG3(37)), MGT_DATA(EN_EG3(38)), MGT_DATA(EN_EG3(39)))
        );
      HadData_int := (
        (MGT_DATA(EN_HAD3(00)), MGT_DATA(EN_HAD3(01)), MGT_DATA(EN_HAD3(02)), MGT_DATA(EN_HAD3(03)), MGT_DATA(EN_HAD3(04)), MGT_DATA(EN_HAD3(05))),
        (MGT_DATA(EN_HAD3(06)), MGT_DATA(EN_HAD3(07)), MGT_DATA(EN_HAD3(08)), MGT_DATA(EN_HAD3(09)), MGT_DATA(EN_HAD3(10)), MGT_DATA(EN_HAD3(11))),
        (MGT_DATA(EN_HAD3(12)), MGT_DATA(EN_HAD3(13)), MGT_DATA(EN_HAD3(14)), MGT_DATA(EN_HAD3(15)), MGT_DATA(EN_HAD3(16)), MGT_DATA(EN_HAD3(17)))
        );
      SpareData_int := (others => (others => '0'));
 
      elsif fpga_number = 4 then
      EmData_int := (
        (MGT_DATA(EN_EG4(00)), MGT_DATA(EN_EG4(01)), MGT_DATA(EN_EG4(02)), MGT_DATA(EN_EG4(03)), MGT_DATA(EN_EG4(04)), MGT_DATA(EN_EG4(05)), MGT_DATA(EN_EG4(06)), MGT_DATA(EN_EG4(07)), MGT_DATA(EN_EG4(08)), MGT_DATA(EN_EG4(09))),
        (MGT_DATA(EN_EG4(10)), MGT_DATA(EN_EG4(11)), MGT_DATA(EN_EG4(12)), MGT_DATA(EN_EG4(13)), MGT_DATA(EN_EG4(14)), MGT_DATA(EN_EG4(15)), MGT_DATA(EN_EG4(16)), MGT_DATA(EN_EG4(17)), MGT_DATA(EN_EG4(18)), MGT_DATA(EN_EG4(19))),
        (MGT_DATA(EN_EG4(20)), MGT_DATA(EN_EG4(21)), MGT_DATA(EN_EG4(22)), MGT_DATA(EN_EG4(23)), MGT_DATA(EN_EG4(24)), MGT_DATA(EN_EG4(25)), MGT_DATA(EN_EG4(26)), MGT_DATA(EN_EG4(27)), MGT_DATA(EN_EG4(28)), MGT_DATA(EN_EG4(29))),
        (MGT_DATA(EN_EG4(30)), MGT_DATA(EN_EG4(31)), MGT_DATA(EN_EG4(32)), MGT_DATA(EN_EG4(33)), MGT_DATA(EN_EG4(34)), MGT_DATA(EN_EG4(35)), MGT_DATA(EN_EG4(36)), MGT_DATA(EN_EG4(37)), MGT_DATA(EN_EG4(38)), MGT_DATA(EN_EG4(39)))
        );
      HadData_int := (
        (MGT_DATA(EN_HAD4(00)), MGT_DATA(EN_HAD4(01)), MGT_DATA(EN_HAD4(02)), MGT_DATA(EN_HAD4(03)), MGT_DATA(EN_HAD4(04)), MGT_DATA(EN_HAD4(05))),
        (MGT_DATA(EN_HAD4(06)), MGT_DATA(EN_HAD4(07)), MGT_DATA(EN_HAD4(08)), MGT_DATA(EN_HAD4(09)), MGT_DATA(EN_HAD4(10)), MGT_DATA(EN_HAD4(11))),
        (MGT_DATA(EN_HAD4(12)), MGT_DATA(EN_HAD4(13)), MGT_DATA(EN_HAD4(14)), MGT_DATA(EN_HAD4(15)), MGT_DATA(EN_HAD4(16)), MGT_DATA(EN_HAD4(17)))
        );
      SpareData_int := (others => (others => '0'));
 
      end if;
 
    EmData    <= EmData_int;
    HadData   <= HadData_int;
    SpareData <= SpareData_int;
  end FibreArrayBuilder;
 
  function to_raw_data(em : FibreAllEm; had : FibreAllHad) return RAW_data_227_type is
    variable ret : RAW_data_227_type;
  begin
    for eta in 0 to 3 loop
      for phi in 0 to 9 loop
        ret(eta*10+phi) := em(eta)(phi)(227) & em(eta)(phi)(225 downto 0); -- remove align frame bit (226)
      end loop;
    end loop;
 
    for eta in 0 to 2 loop
      for phi in 0 to 2 loop
        ret(40+eta*3+phi) := had(eta)(phi)(227) & had(eta)(phi)(225 downto 0); --remove align frame bit (226)
      end loop;
    end loop;
 
    return ret;
 
  end function;
 
  function ReadoutMGTEnable (fpga_number : integer; mgt_enable_in  : std_logic_vector(63 downto 0)) return std_logic_vector is
 
    variable v_en_out : std_logic_vector(48 downto 0);
 
  begin  -- procedure ReadoutMGTEnable
    if fpga_number = 1 then
      --em
      v_en_out(39 downto 0) := mgt_enable_in(EN_EG1(00))&mgt_enable_in(EN_EG1(01))&mgt_enable_in(EN_EG1(02))&mgt_enable_in(EN_EG1(03))&mgt_enable_in(EN_EG1(04))&
                               mgt_enable_in(EN_EG1(05))&mgt_enable_in(EN_EG1(06))&mgt_enable_in(EN_EG1(07))&mgt_enable_in(EN_EG1(08))&mgt_enable_in(EN_EG1(09))&
                               mgt_enable_in(EN_EG1(10))&mgt_enable_in(EN_EG1(11))&mgt_enable_in(EN_EG1(12))&mgt_enable_in(EN_EG1(13))&mgt_enable_in(EN_EG1(14))&
                               mgt_enable_in(EN_EG1(15))&mgt_enable_in(EN_EG1(16))&mgt_enable_in(EN_EG1(17))&mgt_enable_in(EN_EG1(18))&mgt_enable_in(EN_EG1(19))&
                               mgt_enable_in(EN_EG1(20))&mgt_enable_in(EN_EG1(21))&mgt_enable_in(EN_EG1(22))&mgt_enable_in(EN_EG1(23))&mgt_enable_in(EN_EG1(24))&
                               mgt_enable_in(EN_EG1(25))&mgt_enable_in(EN_EG1(26))&mgt_enable_in(EN_EG1(27))&mgt_enable_in(EN_EG1(28))&mgt_enable_in(EN_EG1(29))&
                               mgt_enable_in(EN_EG1(30))&mgt_enable_in(EN_EG1(31))&mgt_enable_in(EN_EG1(32))&mgt_enable_in(EN_EG1(33))&mgt_enable_in(EN_EG1(34))&
                               mgt_enable_in(EN_EG1(35))&mgt_enable_in(EN_EG1(36))&mgt_enable_in(EN_EG1(37))&mgt_enable_in(EN_EG1(38))&mgt_enable_in(EN_EG1(39));
      --hadronic
      v_en_out(48 downto 40) := mgt_enable_in(EN_HAD1(03))&mgt_enable_in(EN_HAD1(04))&mgt_enable_in(EN_HAD1(05)) &
                                mgt_enable_in(EN_HAD1(09))&mgt_enable_in(EN_HAD1(10))&mgt_enable_in(EN_HAD1(11)) &
                                mgt_enable_in(EN_HAD1(15))&mgt_enable_in(EN_HAD1(16))&mgt_enable_in(EN_HAD1(17));
 
    elsif fpga_number = 2 then
            --em
      v_en_out(39 downto 0) := mgt_enable_in(EN_EG2(00))&mgt_enable_in(EN_EG2(01))&mgt_enable_in(EN_EG2(02))&mgt_enable_in(EN_EG2(03))&mgt_enable_in(EN_EG2(04))&
                               mgt_enable_in(EN_EG2(05))&mgt_enable_in(EN_EG2(06))&mgt_enable_in(EN_EG2(07))&mgt_enable_in(EN_EG2(08))&mgt_enable_in(EN_EG2(09))&
                               mgt_enable_in(EN_EG2(10))&mgt_enable_in(EN_EG2(11))&mgt_enable_in(EN_EG2(12))&mgt_enable_in(EN_EG2(13))&mgt_enable_in(EN_EG2(14))&
                               mgt_enable_in(EN_EG2(15))&mgt_enable_in(EN_EG2(16))&mgt_enable_in(EN_EG2(17))&mgt_enable_in(EN_EG2(18))&mgt_enable_in(EN_EG2(19))&
                               mgt_enable_in(EN_EG2(20))&mgt_enable_in(EN_EG2(21))&mgt_enable_in(EN_EG2(22))&mgt_enable_in(EN_EG2(23))&mgt_enable_in(EN_EG2(24))&
                               mgt_enable_in(EN_EG2(25))&mgt_enable_in(EN_EG2(26))&mgt_enable_in(EN_EG2(27))&mgt_enable_in(EN_EG2(28))&mgt_enable_in(EN_EG2(29))&
                               mgt_enable_in(EN_EG2(30))&mgt_enable_in(EN_EG2(31))&mgt_enable_in(EN_EG2(32))&mgt_enable_in(EN_EG2(33))&mgt_enable_in(EN_EG2(34))&
                               mgt_enable_in(EN_EG2(35))&mgt_enable_in(EN_EG2(36))&mgt_enable_in(EN_EG2(37))&mgt_enable_in(EN_EG2(38))&mgt_enable_in(EN_EG2(39));
      --hadronic
      v_en_out(48 downto 40) := mgt_enable_in(EN_HAD2(03))&mgt_enable_in(EN_HAD2(04))&mgt_enable_in(EN_HAD2(05))&
                                mgt_enable_in(EN_HAD2(09))&mgt_enable_in(EN_HAD2(10))&mgt_enable_in(EN_HAD2(11))&
                                mgt_enable_in(EN_HAD2(15))&mgt_enable_in(EN_HAD2(16))&mgt_enable_in(EN_HAD2(17));
 
    elsif fpga_number = 3 then
            --em
      v_en_out(39 downto 0) := mgt_enable_in(EN_EG3(00))&mgt_enable_in(EN_EG3(01))&mgt_enable_in(EN_EG3(02))&mgt_enable_in(EN_EG3(03))&mgt_enable_in(EN_EG3(04))&
                               mgt_enable_in(EN_EG3(05))&mgt_enable_in(EN_EG3(06))&mgt_enable_in(EN_EG3(07))&mgt_enable_in(EN_EG3(08))&mgt_enable_in(EN_EG3(09))&
                               mgt_enable_in(EN_EG3(10))&mgt_enable_in(EN_EG3(11))&mgt_enable_in(EN_EG3(12))&mgt_enable_in(EN_EG3(13))&mgt_enable_in(EN_EG3(14))&
                               mgt_enable_in(EN_EG3(15))&mgt_enable_in(EN_EG3(16))&mgt_enable_in(EN_EG3(17))&mgt_enable_in(EN_EG3(18))&mgt_enable_in(EN_EG3(19))&
                               mgt_enable_in(EN_EG3(20))&mgt_enable_in(EN_EG3(21))&mgt_enable_in(EN_EG3(22))&mgt_enable_in(EN_EG3(23))&mgt_enable_in(EN_EG3(24))&
                               mgt_enable_in(EN_EG3(25))&mgt_enable_in(EN_EG3(26))&mgt_enable_in(EN_EG3(27))&mgt_enable_in(EN_EG3(28))&mgt_enable_in(EN_EG3(29))&
                               mgt_enable_in(EN_EG3(30))&mgt_enable_in(EN_EG3(31))&mgt_enable_in(EN_EG3(32))&mgt_enable_in(EN_EG3(33))&mgt_enable_in(EN_EG3(34))&
                               mgt_enable_in(EN_EG3(35))&mgt_enable_in(EN_EG3(36))&mgt_enable_in(EN_EG3(37))&mgt_enable_in(EN_EG3(38))&mgt_enable_in(EN_EG3(39));
      --hadronic
      v_en_out(48 downto 40) := mgt_enable_in(EN_HAD3(03))&mgt_enable_in(EN_HAD3(04))&mgt_enable_in(EN_HAD3(05))&
                                mgt_enable_in(EN_HAD3(09))&mgt_enable_in(EN_HAD3(10))&mgt_enable_in(EN_HAD3(11))&
                                mgt_enable_in(EN_HAD3(15))&mgt_enable_in(EN_HAD3(16))&mgt_enable_in(EN_HAD3(17));
 
    elsif fpga_number = 4 then
            --em
      v_en_out(39 downto 0) := mgt_enable_in(EN_EG4(00))&mgt_enable_in(EN_EG4(01))&mgt_enable_in(EN_EG4(02))&mgt_enable_in(EN_EG4(03))&mgt_enable_in(EN_EG4(04))&
                               mgt_enable_in(EN_EG4(05))&mgt_enable_in(EN_EG4(06))&mgt_enable_in(EN_EG4(07))&mgt_enable_in(EN_EG4(08))&mgt_enable_in(EN_EG4(09))&
                               mgt_enable_in(EN_EG4(10))&mgt_enable_in(EN_EG4(11))&mgt_enable_in(EN_EG4(12))&mgt_enable_in(EN_EG4(13))&mgt_enable_in(EN_EG4(14))&
                               mgt_enable_in(EN_EG4(15))&mgt_enable_in(EN_EG4(16))&mgt_enable_in(EN_EG4(17))&mgt_enable_in(EN_EG4(18))&mgt_enable_in(EN_EG4(19))&
                               mgt_enable_in(EN_EG4(20))&mgt_enable_in(EN_EG4(21))&mgt_enable_in(EN_EG4(22))&mgt_enable_in(EN_EG4(23))&mgt_enable_in(EN_EG4(24))&
                               mgt_enable_in(EN_EG4(25))&mgt_enable_in(EN_EG4(26))&mgt_enable_in(EN_EG4(27))&mgt_enable_in(EN_EG4(28))&mgt_enable_in(EN_EG4(29))&
                               mgt_enable_in(EN_EG4(30))&mgt_enable_in(EN_EG4(31))&mgt_enable_in(EN_EG4(32))&mgt_enable_in(EN_EG4(33))&mgt_enable_in(EN_EG4(34))&
                               mgt_enable_in(EN_EG4(35))&mgt_enable_in(EN_EG4(36))&mgt_enable_in(EN_EG4(37))&mgt_enable_in(EN_EG4(38))&mgt_enable_in(EN_EG4(39));
      --hadronic
      v_en_out(48 downto 40) := mgt_enable_in(EN_HAD4(03))&mgt_enable_in(EN_HAD4(04))&mgt_enable_in(EN_HAD4(05))&
                                mgt_enable_in(EN_HAD4(09))&mgt_enable_in(EN_HAD4(10))&mgt_enable_in(EN_HAD4(11))&
                                mgt_enable_in(EN_HAD4(15))&mgt_enable_in(EN_HAD4(16))&mgt_enable_in(EN_HAD4(17));
 
    end if;
    return v_en_out;
  end function ReadoutMGTEnable;
 
  function f_efex_position (fpga_number : integer; efex_position : integer) return std_logic_vector is
  variable pos : std_logic_vector(31 downto 0);
  begin
   
   if fpga_number = 1 and efex_position = 1 then --A
      pos := x"0000001c";
   elsif fpga_number = 1 and efex_position = 2 then --B
      pos := x"00000000";
   elsif fpga_number = 1 and efex_position = 3 then --C
      pos := x"00000063";
  
   elsif fpga_number = 2 and efex_position = 1 then --A
      pos := x"0000009d";
   elsif fpga_number = 2 and efex_position = 2 then --B
      pos := x"0000001c";
   elsif fpga_number = 2 and efex_position = 3 then --C
      pos := x"00000000";
   
   elsif fpga_number = 3 and efex_position = 1 then --A
    pos := x"0000005c";
   elsif fpga_number = 3 and efex_position = 2 then --B
    pos := x"00000010";
   elsif fpga_number = 3 and efex_position = 3 then --C
    pos := x"00000060";
   
   elsif fpga_number = 4 and efex_position = 1 then --A
    pos := x"0000009c";
   elsif fpga_number = 4 and efex_position = 2 then --B
    pos := x"00000018";
   elsif fpga_number = 4 and efex_position = 3 then --C
    pos := x"00000020";
    
   else
     pos := (others => '1');
   
   end if;
  
    return pos;
  end function f_efex_position;
  
end EfexDataFormats;