/* 1 2 CRcell(c,r) == value of cell from column c row r
*/
double nf_CRcell(const Node *n, const Cell *c)
{
  Cell x;  Node *r = Right(n);

  x.col_fixed = x.row_fixed = 0;

  x.col = eval_tree( r, c);
  x.row = eval_tree( r->next, c);

  if( check_cell( &x)) return 0;

  SS *cp = &ss[x.row][x.col];

  return eval_cell( cp, &x);
}