function xopsout=xops(dM,n,mm)
%        xopsout=xops(dM,n,mm);
%  maps  R^{n x n} --->  R^{1}xR^{mm}
%           matrix space n by n to vectors
global indsE X
Xs=(X*dM'+dM*X)/2;
xopsout=[ trace(Xs)
          usvecE(Xs,n,mm)];
