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
/// =========================================================================
22
// d2_ds2_d_ds matrix for scalar valued spaces on lineic geometry
24
// int_Gamma d phi/ds d psi/ds ds
26
// or, in axisymmetric geometries:
28
// int_Gamma d phi/ds d psi/ds r ds
30
#include "d2_ds2_d_ds.h"
31
#include "rheolef/ublas_matrix_range.h"
32
using namespace rheolef;
34
using namespace ublas;
37
d2_ds2_d_ds::operator() (const geo_element& K, ublas::matrix<Float>& m) const
39
size_type n_comp = get_first_space().n_component();
40
check_macro (n_comp == 1, "only single-component fields supported for d2_ds2_d_ds form")
41
build_d2_ds2_d_ds (K, m);
44
d2_ds2_d_ds::check_after_initialize () const
46
// suppose also that multi-component spaces are homogeneous,
47
// i.e. that all components have the same approx
48
check_macro (get_first_space().n_component() == get_second_space().n_component(),
49
"incompatible spaces for the `d2_ds2_d_ds' form.");