ForkMaster/netgen
1
0
Fork 0
mirror of https://github.com/NGSolve/netgen.git synced 2024-11-11 16:49:16 +05:00
Code Issues Packages Projects Releases Wiki Activity

instantiation and fixes of SIMD - function

Browse Source
This commit is contained in:
Joachim Schöberl 2016-07-07 17:58:13 +02:00
parent ffb5a8c8da
commit 416addf076
1 changed files with 15 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
libsrc/meshing/meshtype.cpp
View File

@ -1973,7 +1973,7 @@ namespace netgen
{
case TET:
{
dshape = 0;
dshape = T(0.0);
dshape(0,0) = 1;
dshape(1,1) = 1;
dshape(2,2) = 1;
@ -1984,7 +1984,7 @@ namespace netgen
}
case PRISM:
{
dshape = 0;
dshape = T(0.0);
dshape(0,0) = 1-p(2);
dshape(0,2) = -p(0);
dshape(1,1) = 1-p(2);
@ -2007,23 +2007,30 @@ namespace netgen
{
int np = GetNP();
double eps = 1e-6;
Vector shaper(np), shapel(np);
ArrayMem<T,100> mem(2*np);
TFlatVector<T> shaper(np, &mem[0]);
TFlatVector<T> shapel(np, &mem[np]);
// Vector shaper(np), shapel(np);
for (int i = 1; i <= 3; i++)
for (int i = 0; i < 3; i++)
{
Point3d pr(p), pl(p);
pr.X(i) += eps;
pl.X(i) -= eps;
Point<3,T> pr(p), pl(p);
pr(i) += eps;
pl(i) -= eps;
GetShapeNew (pr, shaper);
GetShapeNew (pl, shapel);
for (int j = 0; j < np; j++)
dshape(j, i-1) = (shaper(j) - shapel(j)) / (2 * eps);
dshape(j, i) = (shaper(j) - shapel(j)) / (2 * eps);
}
}
}
}
template void Element::GetDShapeNew<double> (const Point<3> &, MatrixFixWidth<3> &) const;
template void Element::GetDShapeNew<SIMD<double>> (const Point<3,SIMD<double>> &, MatrixFixWidth<3,SIMD<double>> &) const;
void Element ::
GetPointMatrix (const T_POINTS & points,
DenseMatrix & pmat) const