function [ iZMatEX ]=iZu2sMatEX(n,Zi,X,p,q);

% 9.06.2002 waterloo
% input: Zi ... inv(Z)
%        X .. matrix type n \times n
% output: iZMatEX = ( inv(Z)*u2sMAtE(e_{p,q})*X )/sqrt(2);
% call: [ iZMatEX ]=iZu2sMatEX(n,Zi,X,p,q);


%Mat = zeros(n);
%Mat(p,:)=X(q,:);
%Mat(q,:)=X(p,:);
%iZMatEX = Zi *Mat/sqrt(2); 
iZMatEX = (   Zi(:,p)*X(q,:)+Zi(:,q)*X(p,:)  )/sqrt(2); 
