/* 2 1 extract fraction and exponent, {f,e} = frexp(x)
*/
double nf_frexp(const Node *n, const Cell *c)
{
  int expo;
  double frac;
  Node *lval = Left(n);

  frac = frexp( eval_tree( Right(n), c), &expo);

  if( lval)
  {
    lval_helper( "frexp", lval, c, frac);

    lval = lval->next;

    if( lval)
      lval_helper( "frexp", lval, c, expo);
  }

  return frac;
}