function y=abs2(x)
  y=x;
  if (x<0)
    y=-x;
    return;
  end 
end
