function [k1,k2]=comm_x(x1,x2);
%Определение совместной области аргумента X (перекрывающейс?)
%Xmin=max(min(X1),min(X2)) и Xmax=min(max(X1),max(X2))
%
%Вызов:  [k1,k2]=comm_x(x1,x2);
%
%  x1,x2 - векторы-аргументы (м.б. разной длины) на равномерной
%          сетке;
%  k1,k2 - индексы дл? перекрывающейс? области;

% 27.01.97

xmin=max(min(x1),min(x2));
xmax=min(max(x1),max(x2));

if xmin>=xmax
   error ('!!!    No common domain   !!!')
elseif sum(k1)
end

k1=between(x1,xmin,xmax,'11');
k2=between(x2,xmin,xmax,'11');
if sum(k1)~=sum(k2)
   disp(['!!!  Attention: sums of indexes isn''t equal  !!!'])
end
