int evalexpr(struct expr *e) { if (e->subexpr) return(applyop(e->subexpr->op, evalexpr(e->subexpr->a), evalexpr(e->subexpr->b))); else return(e->val); }
void FMultiGrid::applyop (MultiFab & phi, MultiFab & res) { PArray<MultiFab> phi_p; PArray<MultiFab> res_p; Copy(phi_p, phi); Copy(res_p, res); applyop(phi_p, res_p); }