30
30
s_grad_grad<T,M>::operator() (const geo_element& K, ublas::matrix<T>& a) const
32
34
// 3d: curl(curl(psi)) = - Laplacian(psi) + grad(div(psi))
33
35
// => not s.d.p matrix but with look at pis with div(psi)=0 : stream function
34
36
if (K.dimension() == 3) {
35
37
size_type n_comp = base::get_first_space().size();
37
39
base::build_scalar_grad_grad (K, ai);
38
40
size_type n1 = ai.size1();
39
41
size_type n2 = ai.size2();