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
// given u1h on a mesh omega1, re-interpolate it on a mesh omega2 as u2h
23
// usage: prog omega1 omega2
26
using namespace rheolef;
28
point u(const point& x) { return point(-x[0]+x[1]+x[2],
31
int main(int argc, char**argv) {
32
rheolef::environment rheolef (argc,argv);
36
space V1h (omega1, "P1", "vector");
37
space V2h (omega2, "P1", "vector");
38
field u1h = interpolate (V1h, u);
39
field u2h = interpolate (V2h, u1h);
40
field u2h_bis = interpolate (V2h, u);
41
field eh = u2h - u2h_bis;
42
Float err = sqrt(dot(eh,eh));
43
derr << "err = " << err << endl;
44
if (argc > 3) dout << eh;
45
return (err < tol) ? 0 : 1;