function a = je_cislo(c)
% strom/private/je_cislo - test, zda vstup je skalar, kladne cislo
% a = je_cislo(c)

a = 0;
if size(c,1)>1
    return
end
if size(c,2)>1
    return
end
if c<=0
    return
end
a = 1; % OK