2
/// This file is part of Rheolef.
4
/// Copyright (C) 2000-2009 Pierre Saramito <Pierre.Saramito@imag.fr>
6
/// Rheolef is free software; you can redistribute it and/or modify
7
/// it under the terms of the GNU General Public License as published by
8
/// the Free Software Foundation; either version 2 of the License, or
9
/// (at your option) any later version.
11
/// Rheolef is distributed in the hope that it will be useful,
12
/// but WITHOUT ANY WARRANTY; without even the implied warranty of
13
/// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14
/// GNU General Public License for more details.
16
/// You should have received a copy of the GNU General Public License
17
/// along with Rheolef; if not, write to the Free Software
18
/// Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
20
/// =========================================================================
21
// check field_indirect::const_iterator
24
using namespace rheolef;
26
Float g (const point& x) { return sin(x[0]+x[1]+0.5); }
27
int main(int argc, char**argv) {
28
environment distributed(argc, argv);
30
string dom_name = (argc > 2) ? argv[2] : "right";
31
Float prec = (argc > 3) ? atof(argv[3]) : 1e-10;
32
space Vh (omega, "P1");
33
space Wh (omega[dom_name], "P1");
34
field fh = interpolate(Vh, g);
35
field gh = interpolate(Wh, g);
37
warning_macro ("expr...");
38
zh = -0.5*(-gh/2.0 - gh/2 - fh[dom_name]); // check for field_indirect<T,M>, without const
39
warning_macro ("expr done");
40
dcout << setprecision(15) << compose (rounder(prec),zh);