ماتریس در بردار

LIBRARY ieee;
USE ieee.std_logic_1164.ALL;
entity DCT_beh is
    port (
            Clk :           in std_logic;
            Start :         in std_logic;
            Din :           in INTEGER;
            Done :          out std_logic;
            Dout :          out INTEGER
          );
 end DCT_beh;

architecture behavioral of DCT_beh is
begin
    process
            type RF is array ( 0 to 7, 0 to 7 ) of INTEGER;
 type RF is array ( 0 to 7, 0 to 7 ) of INTEGER;

            variable i, j, k        : INTEGER;
            variable InBlock        : RF;
            variable COSBlock       : RF;
            variable TempBlock      : RF;
            variable OutBlock       : RF;
            variable A, B, P, Sum   : INTEGER;

    begin

            COSBlock := (
    ( 125,  122,    115,    103,    88,     69,     47,     24  ),
    ( 125,  103,    47,     -24,    -88,    -122,   -115,   -69  ),
    ( 125,  69,     -47,    -122,   -88,    24,     115,    103  ),
    ( 125,  24,     -115,   -69,    88,     103,    -47,    -122  ),
    ( 125,  -24,    -115,   69,     88,     -103,   -47,    122  ),
    ( 125,  -69,    -47,    122,    -88,    -24,    115,    -103  ),
    ( 125,  -103,   47,     24,     -88,    122,    -115,   69  ),
    ( 125,  -122,   115,    -103,   88,     -69,    47,     -24  )
                    );
 InBlock := (
    ( 125,  0,    0,    0,    0,     0,     0,     0  ),
    ( 125,  0,    0,     0,    0,    0,   0,   0  ),
    ( 125,  0,     0,    0,   0,    0,     0,    0  ),
    ( 125,  0,     0,   0,    0,     0,    0,    0  ),
    ( 125,  0,    0,   0,     0,     0,   0,   0  ),
    ( 125,  0,    0,    0,    0,    0,    0,    0  ),
    ( 125,  0,   0,     0,     0,    0,    0,   0  ),
    ( 125,  0,   0,    0,   0,     0,    0,     0)
                    );

TempBlock      := (
    ( 0,  0,    0,    0,    0,     0,     0,     0  ),
    ( 0,  0,    0,     0,    0,    0,   0,   0  ),
    ( 0,  0,     0,    0,   0,    0,     0,    0  ),
    ( 0,  0,     0,   0,    0,     0,    0,    0  ),
    ( 0,  0,    0,   0,     0,     0,   0,   0  ),
    ( 0,  0,    0,    0,    0,    0,    0,    0  ),
    ( 0,  0,   0,     0,     0,    0,    0,   0  ),
    ( 0,  0,   0,    0,   0,     0,    0,     0)
                    );


    for i in 0 to 7 loop
        for j in 0 to 7 loop
            Sum := 0;
            for k in 0 to 7 loop
                A := COSBlock( i, k );
                B := InBlock( k, 0 );
                P := A * B;
                Sum := Sum + P;
                if( k = 7 ) then
                TempBlock( i, 0 ) := Sum;
                end if;
            end loop;
        end loop;
    end loop;


--Finishing

    wait until Clk = '1' and Clk'event;
    Done <= '1';

--Output Data

    for i in 0 to 7 loop
        for j in 0 to 7 loop
            wait until Clk = '1' and Clk'event;
            Done <= '0';
            Dout <=  tempblock(i,j);
        end loop;
    end loop;
end process;      
 end behavioral;