%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% Copyright: 2010 Integrated Sytems Laboratory, ETH Zurich
%%            http://www.iis.ee.ethz.ch/~sha3
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
function hash=groestl256_hash(m, n)



H = zeros(8,8);
H(7,8)=1; %Set Groestl initialization vector


for u=1:n
    
        H = groestl_256(m(:,(u-1)*8+1:u*8), H, 10);
            
end


hash = groestl_256_output(H, 10);