/* 1 1 round to nearest integer
*/
double nf_round(const Node *n, const Cell *c)
{
  return round( eval_tree( Right(n), c) );

#if 0 // old, for C90
  double i;
  double r = eval_tree( Right(n), c);

  if( r > 0)
    modf( r+0.5, &i);
  else
    modf( r-0.5, &i);

  return i;
#endif
}