%%-----------------------------------------------------------%%
%% ................. FUNCTION chckstoi ......................%%
%%-----------------------------------------------------------%%
%% .... This function is in fact a simple matrix
%% .... multiplication Y*B :-)
%%
function result = chckstoi(ne, nc, nr, B, Y)
result = zeros(nr,1);
for l = 1 : nr
    for i = 1 : nc
        for j = 1 : ne
            result(l) = result(l) + B(i,j)*Y(l,i);
        end
    end
end
end % function chckstoi

