function negminhreal: hreal;
var
  n: integer;
  r: hreal;
begin { negminhreal }
  with r do begin
    si:=-1;
    ex:=-exmax;
    for n:=0 to hdim-1 do ma[n]:=0;
    ma[hdim]:=1; 
  end;
  negminhreal:=r;
end { negminhreal };

