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
/// =========================================================================
23
using namespace rheolef;
25
int main(int argc, char**argv) {
26
environment parallel(argc, argv);
28
Float tol = (argc > 2) ? atof(argv[2]) : 1e-15;
29
Float prec = (argc > 3) ? atof(argv[3]) : 1e-10;
30
space Xh (omega, "P1");
31
if (omega.dimension() >= 3) {
35
if (omega.dimension() >= 2) {
41
form a (Xh, Xh, "grad_grad");
42
form m (Xh, Xh, "mass");
51
size_t max_iter = 10000;
52
int status = pcg (a.uu(), uh.u(), m.uu()*fh.u() + m.ub()*fh.b() - a.ub()*uh.b(),
53
eye<Float>(), max_iter, tol, &pcerr);
54
pcout << setprecision(15) << compose (rounder(prec),uh);
55
pcerr << "uh.u.par_size = " << uh.u().par_size() << endl
57
pcerr << "uh.b.par_size = " << uh.b().par_size() << endl