% It does not plot multiples of alpha

function permitted=check_plot(h,k,l,alpha)
permitted=1.0;

if and(and(h/alpha(1)==k/alpha(2),h/alpha(1)==l/alpha(3)),h/alpha(1)~=1)
    permitted=0;
end;