procedure ismult(i: integer; var x: scalar);
begin { ismult }
  if i<0 then begin
    sneg(x);
    ismult(abs(i),x);
  end
  else begin
    ir_mult(down,i,x.l);
    ir_mult(up,i,x.u);
  end;
end { ismult };

