function [x2,y2,z2]=vec_rotation(x1,y1,z1,A);
% поворот вектора (x2,y2,z2)=A*(x1,y1,z1);
%
%   [x2,y2,z2]=vec_rotation(x1,y1,z1,A);
%
% x1,y1,z1 - элементы вектора в начальной системе координат
%        A - матрица поворота
% x2,y2,z2 - элементы вектора в повернутой системе

% 10.03.2005,  S.Y.Khomutov

x2=A(1,1:3)*[x1 y1 z1]'; x2=x2(:);
y2=A(2,1:3)*[x1 y1 z1]'; y2=y2(:);
z2=A(3,1:3)*[x1 y1 z1]'; z2=z2(:);
