procedure ssymm(var x1,x2: scalar);
begin { ssymm }
  with x2 do begin
    u:=x1.u;
    l:=u;
    l.si:=-u.si;
  end;  
end { ssymm };

