CMXpackage.vhd

Go to the documentation of this file.

library IEEE;
use IEEE.STD_LOGIC_1164.ALL;
use IEEE.NUMERIC_STD.ALL;
use IEEE.MATH_REAL.ALL;


package CMXpackage is

  constant version_common : std_logic_vector(15 downto 0):=x"F0A3";

  CONSTANT numactchan      : integer := 16;
  CONSTANT numbitsinchan : integer := 24;

  
  constant VME_read_det_delay: integer := 42;
  

  constant numbits_in_CTP_connector : integer := 31;   --clock is not counted
  constant numbits_in_RTM_connector : integer := 26;   --clock is not counted
                                                       
                                                      
  
  type cable_del_array_type is array (integer range <>) of std_logic_vector(4 downto 0);

  TYPE mat_var is array (integer range <>) of std_logic_vector(numbitsinchan downto 0);
  TYPE arr_word is ARRAY (integer range <>) of STD_LOGIC_VECTOR (numbitsinchan-1 downto 0);
  TYPE arr_wordData is ARRAY (integer range <>) of STD_LOGIC_VECTOR (numbitsinchan-2 downto 0); --
  -- one bit less (the last bit always carries parity for that word or for the
  -- whole event
  TYPE arr_4Xword is ARRAY (integer range <>) of STD_LOGIC_VECTOR ((numbitsinchan*4)-1 downto 0);
  TYPE arr_2Xword is ARRAY (integer range <>) of STD_LOGIC_VECTOR ((numbitsinchan*2)-1 downto 0);
  TYPE arr_315 is ARRAY (integer range <>) of STD_LOGIC_VECTOR (314 downto 0);
  TYPE arr_171 is ARRAY (integer range <>) of STD_LOGIC_VECTOR (170 downto 0);
  TYPE arr_99 is ARRAY (integer range <>) of STD_LOGIC_VECTOR (98 downto 0);
  TYPE arr_96 is ARRAY (integer range <>) of STD_LOGIC_VECTOR (95 downto 0);
  TYPE arr_64 is ARRAY (integer range <>) of STD_LOGIC_VECTOR (63 downto 0);
  TYPE arr_52 is ARRAY (integer range <>) of STD_LOGIC_VECTOR (51 downto 0);
  TYPE arr_48 is ARRAY (integer range <>) of STD_LOGIC_VECTOR (47 downto 0);
  TYPE arr_36 is ARRAY (integer range <>) of STD_LOGIC_VECTOR (35 downto 0);
  TYPE arr_35 is ARRAY (integer range <>) of STD_LOGIC_VECTOR (34 downto 0);
  TYPE arr_32 is ARRAY (integer range <>) of STD_LOGIC_VECTOR (31 downto 0);
  TYPE arr_31 is ARRAY (integer range <>) of STD_LOGIC_VECTOR (30 downto 0);
  TYPE arr_27 is ARRAY (integer range <>) of STD_LOGIC_VECTOR (26 downto 0);
  TYPE arr_26 is ARRAY (integer range <>) of STD_LOGIC_VECTOR (25 downto 0);
  TYPE arr_25 is ARRAY (integer range <>) of STD_LOGIC_VECTOR (24 downto 0);
  TYPE arr_24 is ARRAY (integer range <>) of STD_LOGIC_VECTOR (23 downto 0);
  TYPE arr_23 is ARRAY (integer range <>) of STD_LOGIC_VECTOR (22 downto 0);
  TYPE arr_20 is ARRAY (integer range <>) of STD_LOGIC_VECTOR (19 downto 0);
  TYPE arr_19 is ARRAY (integer range <>) of STD_LOGIC_VECTOR (18 downto 0);
  TYPE arr_18 is ARRAY (integer range <>) of STD_LOGIC_VECTOR (17 downto 0);
  TYPE arr_17 is ARRAY (integer range <>) of STD_LOGIC_VECTOR (16 downto 0);
  TYPE arr_16 is ARRAY (integer range <>) of STD_LOGIC_VECTOR (15 downto 0);
  TYPE arr_15 is ARRAY (integer range <>) of STD_LOGIC_VECTOR (14 downto 0);
  TYPE arr_12 is ARRAY (integer range <>) of STD_LOGIC_VECTOR (11 downto 0);
  TYPE arr_9 is ARRAY (integer range <>) of STD_LOGIC_VECTOR (8 downto 0);
  TYPE arr_8 is ARRAY (integer range <>) of STD_LOGIC_VECTOR (7 downto 0);
  TYPE arr_6 is ARRAY (integer range <>) of STD_LOGIC_VECTOR (5 downto 0);
  TYPE arr_5 is ARRAY (integer range <>) of STD_LOGIC_VECTOR (4 downto 0);
  TYPE arr_4 is ARRAY (integer range <>) of STD_LOGIC_VECTOR (3 downto 0);
  TYPE arr_3 is ARRAY (integer range <>) of STD_LOGIC_VECTOR (2 downto 0);
  TYPE arr_2 is ARRAY (integer range <>) of STD_LOGIC_VECTOR (1 downto 0);
  TYPE arr_1 is ARRAY (integer range <>) of STD_LOGIC_VECTOR (0 downto 0);

  TYPE arr_ctr_1bit is array (integer range <>) of  unsigned(0 downto 0);
  TYPE arr_ctr_2bit is array (integer range <>) of  unsigned(1 downto 0);
  TYPE arr_ctr_3bit is array (integer range <>) of  unsigned(2 downto 0);
  TYPE arr_ctr_4bit is array (integer range <>) of  unsigned(3 downto 0);
  TYPE arr_ctr_5bit is array (integer range <>) of  unsigned(4 downto 0);
  TYPE arr_ctr_6bit is array (integer range <>) of  unsigned(5 downto 0);
  TYPE arr_ctr_7bit is array (integer range <>) of  unsigned(6 downto 0);
  TYPE arr_ctr_8bit is array (integer range <>) of  unsigned(7 downto 0);
  TYPE arr_ctr_9bit is array (integer range <>) of  unsigned(8 downto 0);
  TYPE arr_ctr_10bit is array (integer range <>) of unsigned(9 downto 0);
  TYPE arr_ctr_11bit is array (integer range <>) of unsigned(10 downto 0);
  TYPE arr_ctr_12bit is array (integer range <>) of unsigned(11 downto 0);
  TYPE arr_ctr_13bit is array (integer range <>) of unsigned(12 downto 0);
  TYPE arr_ctr_14bit is array (integer range <>) of unsigned(13 downto 0);
  TYPE arr_ctr_15bit is array (integer range <>) of unsigned(14 downto 0);
  TYPE arr_ctr_16bit is array (integer range <>) of unsigned(15 downto 0);
  TYPE arr_ctr_17bit is array (integer range <>) of unsigned(16 downto 0);
  TYPE arr_ctr_18bit is array (integer range <>) of unsigned(17 downto 0);
  TYPE arr_ctr_19bit is array (integer range <>) of unsigned(18 downto 0);
  TYPE arr_ctr_20bit is array (integer range <>) of unsigned(19 downto 0);
  TYPE arr_ctr_21bit is array (integer range <>) of unsigned(20 downto 0);
  TYPE arr_ctr_22bit is array (integer range <>) of unsigned(21 downto 0);
  TYPE arr_ctr_23bit is array (integer range <>) of unsigned(22 downto 0);
  TYPE arr_ctr_24bit is array (integer range <>) of unsigned(23 downto 0);
  TYPE arr_ctr_25bit is array (integer range <>) of unsigned(24 downto 0);
  TYPE arr_ctr_26bit is array (integer range <>) of unsigned(25 downto 0);
  TYPE arr_ctr_27bit is array (integer range <>) of unsigned(26 downto 0);
  TYPE arr_ctr_28bit is array (integer range <>) of unsigned(27 downto 0);
  TYPE arr_ctr_29bit is array (integer range <>) of unsigned(28 downto 0);
  TYPE arr_ctr_30bit is array (integer range <>) of unsigned(29 downto 0);
  TYPE arr_ctr_31bit is array (integer range <>) of unsigned(30 downto 0);
  TYPE arr_ctr_32bit is array (integer range <>) of unsigned(31 downto 0);
  TYPE arr_ctr_33bit is array (integer range <>) of unsigned(32 downto 0);
  TYPE arr_ctr_34bit is array (integer range <>) of unsigned(33 downto 0);
  TYPE arr_ctr_35bit is array (integer range <>) of unsigned(34 downto 0);
  TYPE arr_ctr_36bit is array (integer range <>) of unsigned(35 downto 0);
  TYPE arr_ctr_37bit is array (integer range <>) of unsigned(36 downto 0);
  TYPE arr_ctr_38bit is array (integer range <>) of unsigned(37 downto 0);
  TYPE arr_ctr_39bit is array (integer range <>) of unsigned(38 downto 0);
  TYPE arr_ctr_40bit is array (integer range <>) of unsigned(39 downto 0);
  TYPE arr_ctr_41bit is array (integer range <>) of unsigned(40 downto 0);
  TYPE arr_ctr_42bit is array (integer range <>) of unsigned(41 downto 0);
  TYPE arr_ctr_43bit is array (integer range <>) of unsigned(42 downto 0);
  TYPE arr_ctr_44bit is array (integer range <>) of unsigned(43 downto 0);
  TYPE arr_ctr_45bit is array (integer range <>) of unsigned(44 downto 0);
  TYPE arr_ctr_46bit is array (integer range <>) of unsigned(45 downto 0);
  TYPE arr_ctr_47bit is array (integer range <>) of unsigned(46 downto 0);
  TYPE arr_ctr_48bit is array (integer range <>) of unsigned(47 downto 0);
  TYPE arr_ctr_49bit is array (integer range <>) of unsigned(48 downto 0);
  TYPE arr_ctr_50bit is array (integer range <>) of unsigned(49 downto 0);
  TYPE arr_ctr_51bit is array (integer range <>) of unsigned(50 downto 0);
  TYPE arr_ctr_52bit is array (integer range <>) of unsigned(51 downto 0);
  TYPE arr_ctr_53bit is array (integer range <>) of unsigned(52 downto 0);
  TYPE arr_ctr_54bit is array (integer range <>) of unsigned(53 downto 0);
  TYPE arr_ctr_55bit is array (integer range <>) of unsigned(54 downto 0);
  TYPE arr_ctr_56bit is array (integer range <>) of unsigned(55 downto 0);
  TYPE arr_ctr_57bit is array (integer range <>) of unsigned(56 downto 0);
  TYPE arr_ctr_58bit is array (integer range <>) of unsigned(57 downto 0);
  TYPE arr_ctr_59bit is array (integer range <>) of unsigned(58 downto 0);
  TYPE arr_ctr_60bit is array (integer range <>) of unsigned(59 downto 0);
  TYPE arr_ctr_61bit is array (integer range <>) of unsigned(60 downto 0);
  TYPE arr_ctr_62bit is array (integer range <>) of unsigned(61 downto 0);
  TYPE arr_ctr_63bit is array (integer range <>) of unsigned(62 downto 0);
  TYPE arr_ctr_64bit is array (integer range <>) of unsigned(63 downto 0);
  TYPE arr_ctr_65bit is array (integer range <>) of unsigned(64 downto 0);
  TYPE arr_ctr_66bit is array (integer range <>) of unsigned(65 downto 0);
  TYPE arr_ctr_67bit is array (integer range <>) of unsigned(66 downto 0);
  TYPE arr_ctr_68bit is array (integer range <>) of unsigned(67 downto 0);
  TYPE arr_ctr_69bit is array (integer range <>) of unsigned(68  downto 0);
  TYPE arr_ctr_70bit is array (integer range <>) of unsigned(69  downto 0);
  TYPE arr_ctr_71bit is array (integer range <>) of unsigned(70  downto 0);
  TYPE arr_ctr_72bit is array (integer range <>) of unsigned(71  downto 0);
  TYPE arr_ctr_73bit is array (integer range <>) of unsigned(72  downto 0);
  TYPE arr_ctr_74bit is array (integer range <>) of unsigned(73  downto 0);
  TYPE arr_ctr_75bit is array (integer range <>) of unsigned(74  downto 0);
  TYPE arr_ctr_76bit is array (integer range <>) of unsigned(75  downto 0);
  TYPE arr_ctr_77bit is array (integer range <>) of unsigned(76  downto 0);
  TYPE arr_ctr_78bit is array (integer range <>) of unsigned(77  downto 0);
  TYPE arr_ctr_79bit is array (integer range <>) of unsigned(78  downto 0);
  TYPE arr_ctr_80bit is array (integer range <>) of unsigned(79  downto 0);
  TYPE arr_ctr_81bit is array (integer range <>) of unsigned(80  downto 0);
  TYPE arr_ctr_82bit is array (integer range <>) of unsigned(81  downto 0);
  TYPE arr_ctr_83bit is array (integer range <>) of unsigned(82  downto 0);
  TYPE arr_ctr_84bit is array (integer range <>) of unsigned(83  downto 0);
  TYPE arr_ctr_85bit is array (integer range <>) of unsigned(84  downto 0);
  TYPE arr_ctr_86bit is array (integer range <>) of unsigned(85  downto 0);
  TYPE arr_ctr_87bit is array (integer range <>) of unsigned(86  downto 0);
  TYPE arr_ctr_88bit is array (integer range <>) of unsigned(87  downto 0);
  TYPE arr_ctr_89bit is array (integer range <>) of unsigned(88  downto 0);
  TYPE arr_ctr_90bit is array (integer range <>) of unsigned(89  downto 0);
  TYPE arr_ctr_91bit is array (integer range <>) of unsigned(90  downto 0);
  TYPE arr_ctr_92bit is array (integer range <>) of unsigned(91  downto 0);
  TYPE arr_ctr_93bit is array (integer range <>) of unsigned(92  downto 0);
  TYPE arr_ctr_94bit is array (integer range <>) of unsigned(93  downto 0);
  TYPE arr_ctr_95bit is array (integer range <>) of unsigned(94  downto 0);
  TYPE arr_ctr_96bit is array (integer range <>) of unsigned(95  downto 0);
  TYPE arr_ctr_97bit is array (integer range <>) of unsigned(96  downto 0);
  TYPE arr_ctr_98bit is array (integer range <>) of unsigned(97  downto 0);
  TYPE arr_ctr_99bit is array (integer range <>) of unsigned(98  downto 0);
  TYPE arr_ctr_100bit is array (integer range <>) of unsigned(99  downto 0);
  TYPE arr_ctr_101bit is array (integer range <>) of unsigned(100 downto 0);
  TYPE arr_ctr_102bit is array (integer range <>) of unsigned(101 downto 0);
  TYPE arr_ctr_103bit is array (integer range <>) of unsigned(102 downto 0);
  TYPE arr_ctr_104bit is array (integer range <>) of unsigned(103 downto 0);
  TYPE arr_ctr_105bit is array (integer range <>) of unsigned(104 downto 0);
  TYPE arr_ctr_106bit is array (integer range <>) of unsigned(105 downto 0);
  TYPE arr_ctr_107bit is array (integer range <>) of unsigned(106 downto 0);
  TYPE arr_ctr_108bit is array (integer range <>) of unsigned(107 downto 0);
  TYPE arr_ctr_109bit is array (integer range <>) of unsigned(108 downto 0);
  TYPE arr_ctr_110bit is array (integer range <>) of unsigned(109 downto 0);
  TYPE arr_ctr_111bit is array (integer range <>) of unsigned(110 downto 0);
  TYPE arr_ctr_112bit is array (integer range <>) of unsigned(111 downto 0);
  TYPE arr_ctr_113bit is array (integer range <>) of unsigned(112 downto 0);
  TYPE arr_ctr_114bit is array (integer range <>) of unsigned(113 downto 0);
  TYPE arr_ctr_115bit is array (integer range <>) of unsigned(114 downto 0);
  
  
  TYPE arr_sig_1bit is array (integer range <>) of  signed(0 downto 0);
  TYPE arr_sig_2bit is array (integer range <>) of  signed(1 downto 0);
  TYPE arr_sig_3bit is array (integer range <>) of  signed(2 downto 0);
  TYPE arr_sig_4bit is array (integer range <>) of  signed(3 downto 0);
  TYPE arr_sig_5bit is array (integer range <>) of  signed(4 downto 0);
  TYPE arr_sig_6bit is array (integer range <>) of  signed(5 downto 0);
  TYPE arr_sig_7bit is array (integer range <>) of  signed(6 downto 0);
  TYPE arr_sig_8bit is array (integer range <>) of  signed(7 downto 0);
  TYPE arr_sig_9bit is array (integer range <>) of  signed(8 downto 0);
  TYPE arr_sig_10bit is array (integer range <>) of signed(9 downto 0);
  TYPE arr_sig_11bit is array (integer range <>) of signed(10 downto 0);
  TYPE arr_sig_12bit is array (integer range <>) of signed(11 downto 0);
  TYPE arr_sig_13bit is array (integer range <>) of signed(12 downto 0);
  TYPE arr_sig_14bit is array (integer range <>) of signed(13 downto 0);
  TYPE arr_sig_15bit is array (integer range <>) of signed(14 downto 0);
  TYPE arr_sig_16bit is array (integer range <>) of signed(15 downto 0);
  TYPE arr_sig_17bit is array (integer range <>) of signed(16 downto 0);
  TYPE arr_sig_18bit is array (integer range <>) of signed(17 downto 0);
  TYPE arr_sig_19bit is array (integer range <>) of signed(18 downto 0);
  TYPE arr_sig_20bit is array (integer range <>) of signed(19 downto 0);
  TYPE arr_sig_21bit is array (integer range <>) of signed(20 downto 0);
  TYPE arr_sig_22bit is array (integer range <>) of signed(21 downto 0);
  TYPE arr_sig_23bit is array (integer range <>) of signed(22 downto 0);
  TYPE arr_sig_24bit is array (integer range <>) of signed(23 downto 0);
  TYPE arr_sig_25bit is array (integer range <>) of signed(24 downto 0);
  TYPE arr_sig_26bit is array (integer range <>) of signed(25 downto 0);
  TYPE arr_sig_27bit is array (integer range <>) of signed(26 downto 0);
  TYPE arr_sig_28bit is array (integer range <>) of signed(27 downto 0);
  TYPE arr_sig_29bit is array (integer range <>) of signed(28 downto 0);
  TYPE arr_sig_30bit is array (integer range <>) of signed(29 downto 0);
  TYPE arr_sig_31bit is array (integer range <>) of signed(30 downto 0);
  TYPE arr_sig_32bit is array (integer range <>) of signed(31 downto 0);
  TYPE arr_sig_33bit is array (integer range <>) of signed(32 downto 0);
  TYPE arr_sig_34bit is array (integer range <>) of signed(33 downto 0);
  TYPE arr_sig_35bit is array (integer range <>) of signed(34 downto 0);
  TYPE arr_sig_36bit is array (integer range <>) of signed(35 downto 0);
  TYPE arr_sig_37bit is array (integer range <>) of signed(36 downto 0);
  TYPE arr_sig_38bit is array (integer range <>) of signed(37 downto 0);
  TYPE arr_sig_39bit is array (integer range <>) of signed(38 downto 0);
  TYPE arr_sig_40bit is array (integer range <>) of signed(39 downto 0);
  TYPE arr_sig_41bit is array (integer range <>) of signed(40 downto 0);
  TYPE arr_sig_42bit is array (integer range <>) of signed(41 downto 0);
  TYPE arr_sig_43bit is array (integer range <>) of signed(42 downto 0);
  TYPE arr_sig_44bit is array (integer range <>) of signed(43 downto 0);
  TYPE arr_sig_45bit is array (integer range <>) of signed(44 downto 0);
  TYPE arr_sig_46bit is array (integer range <>) of signed(45 downto 0);
  TYPE arr_sig_47bit is array (integer range <>) of signed(46 downto 0);
  TYPE arr_sig_48bit is array (integer range <>) of signed(47 downto 0);
  TYPE arr_sig_49bit is array (integer range <>) of signed(48 downto 0);
  TYPE arr_sig_50bit is array (integer range <>) of signed(49 downto 0);
  TYPE arr_sig_51bit is array (integer range <>) of signed(50 downto 0);
  TYPE arr_sig_52bit is array (integer range <>) of signed(51 downto 0);
  TYPE arr_sig_53bit is array (integer range <>) of signed(52 downto 0);
  TYPE arr_sig_54bit is array (integer range <>) of signed(53 downto 0);
  TYPE arr_sig_55bit is array (integer range <>) of signed(54 downto 0);
  TYPE arr_sig_56bit is array (integer range <>) of signed(55 downto 0);
  TYPE arr_sig_57bit is array (integer range <>) of signed(56 downto 0);
  TYPE arr_sig_58bit is array (integer range <>) of signed(57 downto 0);
  TYPE arr_sig_59bit is array (integer range <>) of signed(58 downto 0);
  TYPE arr_sig_60bit is array (integer range <>) of signed(59 downto 0);
  TYPE arr_sig_61bit is array (integer range <>) of signed(60 downto 0);
  TYPE arr_sig_62bit is array (integer range <>) of signed(61 downto 0);
  TYPE arr_sig_63bit is array (integer range <>) of signed(62 downto 0);
  TYPE arr_sig_64bit is array (integer range <>) of signed(63 downto 0);
  TYPE arr_sig_65bit is array (integer range <>) of signed(64 downto 0);
  TYPE arr_sig_66bit is array (integer range <>) of signed(65 downto 0);
  TYPE arr_sig_67bit is array (integer range <>) of signed(66 downto 0);
  TYPE arr_sig_68bit is array (integer range <>) of signed(67 downto 0);
  TYPE arr_sig_69bit is array (integer range <>) of signed(68  downto 0);
  TYPE arr_sig_70bit is array (integer range <>) of signed(69  downto 0);
  TYPE arr_sig_71bit is array (integer range <>) of signed(70  downto 0);
  TYPE arr_sig_72bit is array (integer range <>) of signed(71  downto 0);
  TYPE arr_sig_73bit is array (integer range <>) of signed(72  downto 0);
  TYPE arr_sig_74bit is array (integer range <>) of signed(73  downto 0);
  TYPE arr_sig_75bit is array (integer range <>) of signed(74  downto 0);
  TYPE arr_sig_76bit is array (integer range <>) of signed(75  downto 0);
  TYPE arr_sig_77bit is array (integer range <>) of signed(76  downto 0);
  TYPE arr_sig_78bit is array (integer range <>) of signed(77  downto 0);
  TYPE arr_sig_79bit is array (integer range <>) of signed(78  downto 0);
  TYPE arr_sig_80bit is array (integer range <>) of signed(79  downto 0);
  TYPE arr_sig_81bit is array (integer range <>) of signed(80  downto 0);
  TYPE arr_sig_82bit is array (integer range <>) of signed(81  downto 0);
  TYPE arr_sig_83bit is array (integer range <>) of signed(82  downto 0);
  TYPE arr_sig_84bit is array (integer range <>) of signed(83  downto 0);
  TYPE arr_sig_85bit is array (integer range <>) of signed(84  downto 0);
  TYPE arr_sig_86bit is array (integer range <>) of signed(85  downto 0);
  TYPE arr_sig_87bit is array (integer range <>) of signed(86  downto 0);
  TYPE arr_sig_88bit is array (integer range <>) of signed(87  downto 0);
  TYPE arr_sig_89bit is array (integer range <>) of signed(88  downto 0);
  TYPE arr_sig_90bit is array (integer range <>) of signed(89  downto 0);
  TYPE arr_sig_91bit is array (integer range <>) of signed(90  downto 0);
  TYPE arr_sig_92bit is array (integer range <>) of signed(91  downto 0);
  TYPE arr_sig_93bit is array (integer range <>) of signed(92  downto 0);
  TYPE arr_sig_94bit is array (integer range <>) of signed(93  downto 0);
  TYPE arr_sig_95bit is array (integer range <>) of signed(94  downto 0);
  TYPE arr_sig_96bit is array (integer range <>) of signed(95  downto 0);
  TYPE arr_sig_97bit is array (integer range <>) of signed(96  downto 0);
  TYPE arr_sig_98bit is array (integer range <>) of signed(97  downto 0);
  TYPE arr_sig_99bit is array (integer range <>) of signed(98  downto 0);
  TYPE arr_sig_100bit is array (integer range <>) of signed(99  downto 0);
  TYPE arr_sig_101bit is array (integer range <>) of signed(100 downto 0);
  TYPE arr_sig_102bit is array (integer range <>) of signed(101 downto 0);
  TYPE arr_sig_103bit is array (integer range <>) of signed(102 downto 0);
  TYPE arr_sig_104bit is array (integer range <>) of signed(103 downto 0);
  TYPE arr_sig_105bit is array (integer range <>) of signed(104 downto 0);
  TYPE arr_sig_106bit is array (integer range <>) of signed(105 downto 0);
  TYPE arr_sig_107bit is array (integer range <>) of signed(106 downto 0);
  TYPE arr_sig_108bit is array (integer range <>) of signed(107 downto 0);
  TYPE arr_sig_109bit is array (integer range <>) of signed(108 downto 0);
  TYPE arr_sig_110bit is array (integer range <>) of signed(109 downto 0);
  TYPE arr_sig_111bit is array (integer range <>) of signed(110 downto 0);
  TYPE arr_sig_112bit is array (integer range <>) of signed(111 downto 0);
  TYPE arr_sig_113bit is array (integer range <>) of signed(112 downto 0);
  TYPE arr_sig_114bit is array (integer range <>) of signed(113 downto 0);
  TYPE arr_sig_115bit is array (integer range <>) of signed(114 downto 0);
  
  --we always have two cables to the CTP
  --clock is included on the 
  type arr_CTP is array(1 downto 0) of STD_LOGIC_VECTOR(numbits_in_CTP_connector downto 0);

  --different flavors of CMX send/receive different number of RTM cables 
  type arr_RTM is array(integer range <>) of STD_LOGIC_VECTOR(numbits_in_RTM_connector downto 0);
  
  
  constant max_ctr32: unsigned(31 downto 0) := x"ffffffff";
  
  --TYPE logic_vector_1d is ARRAY (integer range <>) of std_logic;
  TYPE logic_vector_2d is ARRAY (integer range <>,integer range <>) of std_logic;


  TYPE del_register_type is ARRAY (numactchan - 1 downto 0,numbitsinchan downto 0) of STD_LOGIC_VECTOR (4 downto 0);
  --this is for the delay values stored in the registers
  --convention: last (5-bit) 'word' (x,24,4 downto 0) holds delay for the clkpar line


  TYPE del_register_rtm_type is ARRAY (numbits_in_RTM_connector downto 0) of STD_LOGIC_VECTOR (4 downto 0);
  --this is for the delay values stored in the registers
  --convention: last (5-bit) 'word' (x,numbits_in_RTM_connector,4 downto 0) holds delay for the clkpar line
  --the array is defined in pacage specific to the CMX type
  
  
  -- names of the input/output text files for the test bench
  constant DATAIN  : string:=".\sources\datain.txt";
  constant DATAOUT : string:=".\sources\dataout.txt";

  constant num_IDELAYCTRL : integer := 12;  -- number of IDELAYCTRL circuits
                                            -- needed for backplane inputs

  constant num_RTM_IDELAYCTRL : integer := 2;  -- number of IDELAYCTRL circuits
                                               -- needed for LVDS RTM inputs

  
  --constant def_seed : integer := 9895704;

  --constant c_start0 : std_logic_vector(numbitsinchan-1 downto 0) := "000000000000000000000001";
  --constant c_start1 : std_logic_vector(numbitsinchan-1 downto 0) := "000000000000000000000010";
  --constant c_start2 : std_logic_vector(numbitsinchan-1 downto 0) := "100000000000000000000101";
  --constant c_start3 : std_logic_vector(numbitsinchan-1 downto 0) := "100000000000000000000000";
  --constant c_all0 : std_logic_vector(numbitsinchan-1 downto 0)   := "000000000000000000000000";


  --constant BCID_reset_val : unsigned(11 downto 0) := to_unsigned(351,12);

                                                                   
  constant num_GTX_groups : integer := 2;  -- number of groups of adjacent GTX transmitters
  constant num_GTX_per_group : integer := 12;  --number of GTXs in a group
  constant GTX_data_word_width : integer := 16;  -- width of the data word
                                                 -- note if this is chnged
                                                 -- other parameters in the GTX
                                                 -- instantiation will
                                                 -- be invalid
  
  constant num_fifos_per_group : integer := 12;  -- number of fifo components driving each GTX group

  constant num_GTX_per_fifo : integer :=  num_GTX_per_group / num_fifos_per_group;

  constant num_vio_groups: integer :=3; --vio cores are limited in how big the
                                        --inputs and outputs can be (256) so
                                        --divide into groups
  
  -- length of the array for L1 Topo TX module; -- 8 is the number of subticks in a BC
  -- note that we are dealing with the 16 bit words. The K characters and the
  -- BCID have to
  -- be added by the time_multiplexer
  constant TX_indata_length : integer := (num_GTX_groups * num_GTX_per_group *
                                          (GTX_data_word_width) * 8) ;  
  constant TX_num_words_in_indata: integer := TX_indata_length / (GTX_data_word_width);

  

  constant TX_time_multiplex_indata_length : integer :=
    (TX_indata_length / (num_fifos_per_group * num_GTX_groups));

  constant TX_time_multiplex_odata_length : integer := 18;

  constant TX_fifo_indata_length : integer := TX_time_multiplex_odata_length;
    
  constant TX_fifo_odata_length : integer := TX_fifo_indata_length;

  TYPE arr_time_multiplex_data_in is ARRAY (integer range <>) of STD_LOGIC_VECTOR (TX_time_multiplex_indata_length-1 downto 0);
  TYPE arr_time_multiplex_data_out is ARRAY (integer range <>) of STD_LOGIC_VECTOR (TX_time_multiplex_odata_length-1 downto 0);
  

  type arr_rd_data_count is array (integer range <>) of std_logic_vector(4 DOWNTO 0);
  type arr_wr_data_count is array (integer range <>) of std_logic_vector(4 DOWNTO 0);
  
  type arr_GTX_data is array ((num_GTX_per_group*num_GTX_groups)-1 downto 0) of std_logic_vector(GTX_data_word_width-1 downto 0);
  TYPE arr_2GTX_data is array ((num_GTX_per_group*num_GTX_groups)-1 downto 0) of std_logic_vector((2*GTX_data_word_width)-1 downto 0);

  constant rx_clk_source_offset :integer := 4;
                                        -- which of the receivers to source the
                                        -- fabric clock from, must be in the
                                        -- central clock region in the group

  constant gen_RX : std_logic := '0';   -- if 0 the RX part will be powered
                                        -- down and additional components not
                                        -- generated

  constant gen_Topo_TX_chipscope: std_logic := '1'; --controls if the
                                                    --icon/ila/vio component
                                                    --will be instantiated
  
  TYPE long_unsigned_array is array (integer range <>) of unsigned(13 downto 0);
  TYPE short_unsigned_array is array (integer range <>) of unsigned(4 downto 0);
  
  
  constant not_gen_RX : std_logic := not gen_RX;
  constant RXPOWERDOWN : std_logic_vector(1 downto 0):=not_gen_RX & not_gen_RX;

  --constant LOOPBACK : std_logic_vector(2 downto 0):="010";
  constant LOOPBACK : std_logic_vector(2 downto 0):="000";

  --GTX MMCM configuration for 320MHz ref clock 6.4 Gbps line rate
  constant gtx_mmcm_CLKFBOUT_MULT_F :real := 8.0;
  constant gtx_mmcm_DIVCLK_DIVIDE :integer := 2;
  constant gtx_mmcm_CLKIN1_PERIOD :real :=3.118; 
  constant gtx_mmcm_CLKOUT0_DIVIDE_F :real := 4.0;
  -- Pll parameters
  constant gtx_PLL_DIVSEL_FB :integer := 2;
  constant gtx_PLL_DIVSEL_OUT :integer := 1;
  constant gtx_PLL_DIVSEL_REF :integer := 1; 
  constant gtx_DIVSEL45_FB :integer := 5;
  constant gtx_CLK25_DIVIDER :integer := 13;

  constant use_RX_elastic : BOOLEAN := TRUE;
  
  
  ----GTX MMCM configuration for 125MHz ref clock 5.0 Gbps line rate
  --constant gtx_mmcm_CLKFBOUT_MULT_F :real := 8.0;
  --constant gtx_mmcm_DIVCLK_DIVIDE :integer := 1;
  --constant gtx_mmcm_CLKIN1_PERIOD :real :=8.0; 
  --constant gtx_mmcm_CLKOUT0_DIVIDE_F :real := 4.0;
  ---- Pll parameters
  --constant gtx_PLL_DIVSEL_FB :integer := 4;
  --constant gtx_PLL_DIVSEL_OUT :integer := 1;
  --constant gtx_PLL_DIVSEL_REF :integer := 1; 
  --constant gtx_DIVSEL45_FB :integer := 5;
  --constant gtx_CLK25_DIVIDER :integer := 5;

  
  
  type fiber_to_gtx_arr is array (0 to num_GTX_groups*num_GTX_per_group-1) of integer;

  constant fiber_to_gtx : fiber_to_gtx_arr := (11,0,10,1,8,3,9,2,7,4,6,5,23,12,22,13,20,15,21,14,19,16,18,17);

  type phase_shifts_arr is array (0 to numactchan - 1) of real;
  --constant phase_shifts : phase_shifts_arr := (226.0,229.0,74.0,72.0,78.0,198.0,197.0,227.0,111.0,111.0,112.0,110.0,109.0,113.0,112.0,111.0);
--  constant phase_shifts : phase_shifts_arr := (186.42857142857100,
--                                               192.85714285714300,
--                                               90.00000000000000 ,
--                                               83.57142857142860 ,
--                                               90.00000000000000 ,
--                                               96.42857142857140 ,
--                                               205.71428571428600,
--                                               205.71428571428600,
--                                               199.2857142857140,
--                                               96.42857142857140,
--                                               205.7142857142860,
--                                               96.42857142857140,
--                                               83.57142857142860,
--                                               90.00000000000000,
--                                               90.00000000000000,
--                                               90.00000000000000);
--
--
--this worked for the 1st pcb layout with 8 9 10 11 at the top left
                                               --\289.28571428571400,--327.85714285714300,--360.00000000000000,
                                               --\289.28571428571400,--327.85714285714300,--456.42857142857100, --379.28571428571400,
                                               --\--321.42857142857100,--289.28571428571400,
                                               --\--334.28571428571400,--289.28571428571400,
                                               --\115.71428571428600,
                                               --\109.28571428571400,
                                               --\122.14285714285700,
                                               --\250.71428571428600,--398.57142857142900,--507.85714285714300,--392.14285714285700,
                                               --\257.14285714285700,--295.71428571428600,--372.85714285714300,
                                               --\--321.42857142857100,--250.71428571428600,
                                               --\--315.00000000000000,--257.14285714285700,
                                               --\289.28571428571400,--327.85714285714300,--392.14285714285700,
                                               --\160.71428571428600,
                                               --\160.71428571428600,
                                               --\167.14285714285700,
                                               --\160.71428571428600,
                                               --\160.71428571428600,
                                               --\167.14285714285700,
                                               --\167.14285714285700,
                                               --\160.71428571428600);


-- this satisfies constraints for 6ns window - more balanced, needs route constraints
       ----                                       327.85714285714300,--360.00000000000000,
       ----                                       327.85714285714300,--456.42857142857100, --379.28571428571400,
       ----                                       --321.42857142857100,--289.28571428571400,
       ----                                       --334.28571428571400,--289.28571428571400,
       ----                                       115.71428571428600,
       ----                                       109.28571428571400,
       ----                                       122.14285714285700,
       ----                                       250.71428571428600,--398.57142857142900,--507.85714285714300,--392.14285714285700,
       ----                                       257.14285714285700,--295.71428571428600,--372.85714285714300,
       ----                                       --321.42857142857100,--250.71428571428600,
       ----                                       --315.00000000000000,--257.14285714285700,
       ----                                       327.85714285714300,--392.14285714285700,
       ----                                       160.71428571428600,
       ----                                       160.71428571428600,
       ----                                       167.14285714285700,
       ----                                       160.71428571428600,
       ----                                       160.71428571428600,
       ----                                       167.14285714285700,
       ----                                       167.14285714285700,
       ----                                       160.71428571428600);

  

  --this set satisfies constraints with 6ns window
                                               --327.85714285714300,
                                               --295.71428571428600,
                                               --173.57142857142900,
                                               --173.57142857142900,
                                               --180.00000000000000,
                                               --250.71428571428600,
                                               --257.14285714285700,
                                               --392.14285714285700,
                                               --237.85714285714300,
                                               --237.85714285714300,
                                               --237.85714285714300,
                                               --231.42857142857100,
                                               --231.42857142857100,
                                               --237.85714285714300,
                                               --237.85714285714300,
                                               --237.85714285714300);

  --returns the smaller number 
  function imin(i,j: integer) return integer is
    variable smaller : integer;
  begin
    if i<j then
      smaller:=i;
    else
      smaller:=j;
    end if;
    return smaller;
  end function;
  
  --calculates rounded up log base 2
  function ceil_log_2(i: natural) return natural is
  begin
    return natural(ceil(log2(real(i))));
  end function;
  
  --calculates address port width
  --if there is only one address the address port width is still 1
  function addr_port_width(n_addresses : natural) return natural is
    variable uncorrected_addr_width : natural;
    variable corrected_addr_width : natural;
  begin
    uncorrected_addr_width := natural(ceil(log2(real(n_addresses))));
    if n_addresses > 1 then
      corrected_addr_width := uncorrected_addr_width;
    else
      corrected_addr_width := uncorrected_addr_width+1;
    end if;
    return corrected_addr_width;
  end function;

  function f_log2 (x : natural) return natural is
    variable i : natural;
  begin
    i := 0;  
    while (2**i <= x) and i < 31 loop
      i := i + 1;
    end loop;
    return i;
  end function;

  
end CMXpackage;