function setround(x)
   if x==1
       system_dependent('setround', Inf)
   elseif x==-1
       system_dependent('setround',-Inf)
   else
       system_dependent('setround', 'nearest')
   end