procedure r_sqrt(u: boolean; var x1,x2: hreal);
begin { r_sqrt }
  rsqrt(x1,x2);
  if trunc and u then rtowinfty(x2);
end { r_sqrt };

