function blok_fa = blok_fa(a,fa,x,e)

% blok_fa = blok_fa(a,fa,x,e)
%             Funkce realizuje lokalni prispevek do vekoru,
%             ktery odpovida lin. funkcionalu:
%              f(v) = fa * v(a) dx

x1 = x(e(1));
x2 = x(e(2));

if a>=x1 & a<=x2
    g = fa * (1/(x2-x1));
    blok_fa = [x2-a a-x1]' * g;
else
    blok_fa = [0;0];
end
