function [x1x2] = xprod( x1, x2, usr_par)
%
% Version June 6, 2008
% Matthias Heinkenschloss
%


% Euclidean inner product
x1x2 = x1'*x2;

% End of xprod