function dt=puredot(u,v)
% Alternative dot product, one without conjugation.

dt = 0;
for j=1:length(u)
    dt = dt+u(j)*v(j);
end
    
end % puredot