Repository navigation
Expand file tree
/
Copy pathHex8_ElemData.hpp
More file actions
86 lines (72 loc) · 2.74 KB
/
Copy pathHex8_ElemData.hpp
File metadata and controls
86 lines (72 loc) · 2.74 KB
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
#ifndef _Hex8_ElemData_hpp_
#define _Hex8_ElemData_hpp_
//@HEADER
// ************************************************************************
//
// MiniFE: Simple Finite Element Assembly and Solve
// Copyright (2006-2013) Sandia Corporation
//
// Under terms of Contract DE-AC04-94AL85000, there is a non-exclusive
// license for use of this work by or on behalf of the U.S. Government.
//
// This library is free software; you can redistribute it and/or modify
// it under the terms of the GNU Lesser General Public License as
// published by the Free Software Foundation; either version 2.1 of the
// License, or (at your option) any later version.
//
// This library is distributed in the hope that it will be useful, but
// WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
// Lesser General Public License for more details.
//
// You should have received a copy of the GNU Lesser General Public
// License along with this library; if not, write to the Free Software
// Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307
// USA
//
// ************************************************************************
//@HEADER
#include <Hex8_enums.hpp>
#include <Hex8.hpp>
#include <ElemData.hpp>
namespace miniFE {
template<typename Scalar>
void compute_gradient_values(Scalar* grad_vals)
{
Scalar gpts[Hex8::numGaussPointsPerDim];
Scalar gwts[Hex8::numGaussPointsPerDim];
gauss_pts(Hex8::numGaussPointsPerDim, gpts, gwts);
Scalar pt[Hex8::spatialDim];
Scalar* grad_vals_ptr = grad_vals;
for(size_t ig=0; ig<Hex8::numGaussPointsPerDim; ++ig) {
pt[0] = gpts[ig];
for(size_t jg=0; jg<Hex8::numGaussPointsPerDim; ++jg) {
pt[1] = gpts[jg];
for(size_t kg=0; kg<Hex8::numGaussPointsPerDim; ++kg) {
pt[2] = gpts[kg];
Hex8::gradients(pt, grad_vals_ptr);
grad_vals_ptr += Hex8::numNodesPerElem*Hex8::spatialDim;
}
}
}
}
template<typename GlobalOrdinal,typename Scalar>
void
compute_element_matrix_and_vector(ElemData<GlobalOrdinal,Scalar>& elem_data)
{
Hex8::diffusionMatrix_symm(elem_data.elem_node_coords, elem_data.grad_vals,
elem_data.elem_diffusion_matrix);
Hex8::sourceVector(elem_data.elem_node_coords, elem_data.grad_vals,
elem_data.elem_source_vector);
}
template<typename GlobalOrdinal,typename Scalar>
void
compute_element_matrix_and_vector(ElemDataPtr<GlobalOrdinal,Scalar>& elem_data)
{
Hex8::diffusionMatrix_symm(elem_data.elem_node_coords, elem_data.grad_vals,
elem_data.elem_diffusion_matrix);
Hex8::sourceVector(elem_data.elem_node_coords, elem_data.grad_vals,
elem_data.elem_source_vector);
}
}//namespace miniFE
#endif