/* 1 3 floating-point multiply and add
*/
double nf_fma(const Node *n, const Cell *c)
{
  Node *r = Right(n), *s = r->next;

  return fma( eval_tree( r, c), eval_tree( s, c), eval_tree( s->next, c) );
}