Skip to content

GitLab

Commit b8cd3cef authored by Thomas Witkowski's avatar Thomas Witkowski
Browse files

* Some more optimizations

parent c7cbb878
Hide whitespace changes
Inline Side-by-side
AMDiS/src/DOFMatrix.cc
View file @ b8cd3cef
......@@ -239,45 +239,23 @@ namespace AMDiS {
for (int i = 0; i < n_row; i++) { // for all rows of element matrix
row = elMat.rowIndices[i];
// if (omp_get_thread_num() == 0) {
// ::std::cout << "bound[i] = " << bound[i] << ::std::endl;
// }
BoundaryCondition *condition =
bound ? boundaryManager->getBoundaryCondition(bound[i]) : NULL;
if (condition && condition->isDirichlet()) {
// if (omp_get_thread_num() == 0) {
// ::std::cout << "IN BC" << ::std::endl;
// }
MatrixRow *matrixRow = &(matrix[row]);
if (coupleMatrix) {
// if (omp_get_thread_num() == 0) {
// ::std::cout << "RESIZE 0" << ::std::endl;
// }
matrixRow->resize(0);
} else {
// if (omp_get_thread_num() == 0) {
// ::std::cout << "RESIZE 1 with col = " << row << ::std::endl;
// }
matrixRow->resize(1);
((*matrixRow)[0]).col = row;
((*matrixRow)[0]).entry = 1.0;
}
} else {
// if (omp_get_thread_num() == 0) {
// ::std::cout << "OUT BC" << ::std::endl;
// }
} else {
for (int j = 0; j < n_col; j++) { // for all columns
col = elMat.colIndices[j];
entry = elMat[i][j];
addSparseDOFEntry(sign, row, col, entry, add);
// if (omp_get_thread_num() == 0) {
// ::std::cout << "addSparseDOFEntry(" << sign << "," << row << "," << col << "," << entry << "," << add << ")" << ::std::endl;
// }
}
}
}
......@@ -340,30 +318,27 @@ namespace AMDiS {
("Column index %d out of range 0-%d\n", jcol, colFESpace->getAdmin()->getUsedSize() - 1);
// first entry is diagonal entry
if(rowFESpace==colFESpace)
if (rowFESpace==colFESpace)
if (rowSize == 0) {
MatEntry newEntry = {irow, 0.0};
row->push_back(newEntry);
rowSize = 1;
// if (omp_get_thread_num() == 0) {
// ::std::cout << "PB: " << irow << " " << 0.0 << ::std::endl;
// }
}
// search jcol
for(i=0; i < rowSize; i++) {
for (i = 0; i < rowSize; i++) {
// jcol found ?
if((*row)[i].col == jcol) {
if ((*row)[i].col == jcol) {
break;
}
// remember free entry
if((*row)[i].col == UNUSED_ENTRY) {
if ((*row)[i].col == UNUSED_ENTRY) {
freeCol = i;
}
// no more entries
if((*row)[i].col == NO_MORE_ENTRIES) {
if ((*row)[i].col == NO_MORE_ENTRIES) {
freeCol = i;
if(rowSize > i+1) {
if (rowSize > i+1) {
(*row)[i+1].entry = NO_MORE_ENTRIES;
}
break;
......@@ -371,29 +346,22 @@ namespace AMDiS {
}
// jcol found?
if(i < rowSize) {
if(!add) (*row)[i].entry = 0.0;
if (i < rowSize) {
if (!add)
(*row)[i].entry = 0.0;
(*row)[i].entry += sign * entry;
result = &((*row)[i].entry);
if (omp_get_thread_num() == 0) {
// ::std::cout << "ADD: " << i << " " << sign * entry << ::std::endl;
}
} else {
if(freeCol == -1) {
MatEntry newEntry = {jcol, sign * entry};
row->push_back(newEntry);
result = &((*row)[row->size() - 1].entry);
if (omp_get_thread_num() == 0) {
// ::std::cout << "PB: " << jcol << " " << sign * entry << ::std::endl;
}
} else {
(*row)[freeCol].col = jcol;
if(!add) (*row)[freeCol].entry = 0.0;
if (!add)
(*row)[freeCol].entry = 0.0;
(*row)[freeCol].entry += sign * entry;
result = &((*row)[freeCol].entry);
if (omp_get_thread_num() == 0) {
// ::std::cout << "ADD: " << jcol << " " << sign * entry << ::std::endl;
}
}
}
......
AMDiS/src/ElInfo.cc
View file @ b8cd3cef
......@@ -38,6 +38,8 @@ namespace AMDiS {
for (int i = 0; i < neighbourCoord_.getSize(); i++) {
neighbourCoord_[i].init(mesh_->getDim());
}
dimOfWorld = Global::getGeo(WORLD);
}
ElInfo::~ElInfo()
......@@ -53,33 +55,22 @@ namespace AMDiS {
const WorldVector<double> *ElInfo::coordToWorld(const DimVec<double>& l,
WorldVector<double>* w) const
{
return coordToWorld(l, &coord_, w);
}
const WorldVector<double> *ElInfo::coordToWorld(const DimVec<double>& l,
const FixVec<WorldVector<double>, VERTEX> *coords,
WorldVector<double> *w)
{
int dim = l.getSize() - 1;
int dimOfWorld = Global::getGeo(WORLD);
static WorldVector<double> world[2];
WorldVector<double> *ret = w ? w : &world[omp_get_thread_num()];
WorldVector<double> v = (*coords)[0];
double c = l[0];
for (int j = 0; j < dimOfWorld; j++)
(*ret)[j] = c * v[j];
(*ret)[j] = c * coord_[0][j];
int vertices = Global::getGeo(VERTEX, dim);
int vertices = Global::getGeo(VERTEX, dim);
for (int i = 1; i < vertices; i++) {
v = (*coords)[i];
c = l[i];
for (int j = 0; j < dimOfWorld; j++)
(*ret)[j] += c * v[j];
(*ret)[j] += c * coord_[i][j];
}
return ret;
}
......@@ -121,7 +112,7 @@ namespace AMDiS {
e3[i] = coords[3][i] - v0[i];
}
switch(dow) {
switch (dow) {
case 1:
det = coords[1][0] - coords[0][0];
break;
......@@ -137,9 +128,9 @@ namespace AMDiS {
WorldVector<double> n;
if (dim > 1) {
n[0] = e1[1]*e2[2] - e1[2]*e2[1];
n[1] = e1[2]*e2[0] - e1[0]*e2[2];
n[2] = e1[0]*e2[1] - e1[1]*e2[0];
n[0] = e1[1] * e2[2] - e1[2] * e2[1];
n[1] = e1[2] * e2[0] - e1[0] * e2[2];
n[2] = e1[0] * e2[1] - e1[1] * e2[0];
}
if (dim == 1) {
......@@ -149,11 +140,11 @@ namespace AMDiS {
} else if (dim == 3) {
det = n[0] * e3[0] + n[1] * e3[1] + n[2] * e3[2];
} else
ERROR_EXIT("not yet for problem dimension = %d",dim);
ERROR_EXIT("not yet for problem dimension = %d", dim);
break;
}
default:
ERROR_EXIT("not yet for Global::getGeo(WORLD) = %d",dow);
ERROR_EXIT("not yet for Global::getGeo(WORLD) = %d", dow);
}
return abs(det);
......
AMDiS/src/ElInfo.h
View file @ b8cd3cef
......@@ -441,24 +441,6 @@ namespace AMDiS {
};
// ===== protected methods ====================================================
protected:
/** \brief
* Used by ElInfo's coordToWorld().
* \param lambda barycentric coordinates which should be converted.
* \param coords coords of element vertices.
* \param world world coordinates corresponding to lambda
*/
static const WorldVector<double>
*coordToWorld(const DimVec<double>& lambda,
const FixVec<WorldVector<double>, VERTEX> *coords,
WorldVector<double> *world);
// ===== protected members ====================================================
protected:
/** \brief
......@@ -555,6 +537,11 @@ namespace AMDiS {
*/
bool parametric_;
/** \brief
* Stores the world dimension.
*/
int dimOfWorld;
// ===== static public members ================================================
public:
/** \brief
......
AMDiS/src/ElInfo1d.cc
View file @ b8cd3cef
......@@ -124,7 +124,7 @@ namespace AMDiS {
TEST_EXIT_DBG(lambda)("lambda must not be NULL\n");
TEST_EXIT_DBG(dim == 1)("dim!=1\n");
TEST_EXIT_DBG(Global::getGeo(WORLD) == dim)("not yet for DIM != DIM_OF_WORLD\n");
TEST_EXIT_DBG(dimOfWorld == dim)("not yet for DIM != DIM_OF_WORLD\n");
if (abs(length) < DBL_TOL) {
ERROR_EXIT("length = %le; abort\n", length);
......@@ -173,15 +173,13 @@ namespace AMDiS {
{
FUNCNAME("ElInfo::getElementNormal()");
double det = 0.0;
int dow = Global::getGeo(WORLD);
TEST_EXIT_DBG(dow == 2)(" element normal only well defined for DIM_OF_WORLD = DIM + 1 !!");
TEST_EXIT_DBG(dimOfWorld == 2)
(" element normal only well defined for DIM_OF_WORLD = DIM + 1 !!");
elementNormal[0] = coord_[1][1] - coord_[0][1];
elementNormal[1] = coord_[0][0] - coord_[1][0];
det = norm(&elementNormal);
double det = norm(&elementNormal);
TEST_EXIT_DBG(det > 1.e-30)("det = 0");
......
AMDiS/src/ElInfo2d.cc
View file @ b8cd3cef
......@@ -148,8 +148,6 @@ namespace AMDiS {
parent_ = elem;
level_ = elinfo_old->level_ + 1;
int dow = Global::getGeo(WORLD);
if (fillFlag_.isSet(Mesh::FILL_COORDS) ||
fillFlag_.isSet(Mesh::FILL_DET) ||
fillFlag_.isSet(Mesh::FILL_GRD_LAMBDA)) {
......@@ -402,22 +400,21 @@ namespace AMDiS {
const WorldVector<double> v0 = coord_[0];
testFlag(Mesh::FILL_COORDS);
int dow = Global::getGeo(WORLD);
int dim = mesh_->getDim();
for (int i = 0; i < dow; i++) {
for (int i = 0; i < dimOfWorld; i++) {
e1[i] = coord_[1][i] - v0[i];
e2[i] = coord_[2][i] - v0[i];
}
if (dow == 2) {
if (dimOfWorld == 2) {
double sdet = e1[0] * e2[1] - e1[1] * e2[0];
adet = abs(sdet);
if (adet < 1.0E-25) {
MSG("abs(det) = %f\n", adet);
for (int i = 0; i <= dim; i++)
for (int j = 0; j < dow; j++)
for (int j = 0; j < dimOfWorld; j++)
grd_lam[i][j] = 0.0;
} else {
double det1 = 1.0 / sdet;
......@@ -443,7 +440,7 @@ namespace AMDiS {
if (adet < 1.0E-15) {
MSG("abs(det) = %lf\n", adet);
for (int i = 0; i <= dim; i++)
for (int j = 0; j < dow; j++)
for (int j = 0; j < dimOfWorld; j++)
grd_lam[i][j] = 0.0;
} else {
vectorProduct(e2, normal, grd_lam[1]);
......@@ -451,7 +448,7 @@ namespace AMDiS {
double adet2 = 1.0 / (adet * adet);
for (int i = 0; i < dow; i++) {
for (int i = 0; i < dimOfWorld; i++) {
grd_lam[1][i] *= adet2;
grd_lam[2][i] *= adet2;
}
......@@ -477,7 +474,6 @@ namespace AMDiS {
static DimVec<double> vec(mesh_->getDim(), NO_INIT);
int dim = mesh_->getDim();
int dimOfWorld = Global::getGeo(WORLD);
for (int j = 0; j < dimOfWorld; j++) {
double x0 = coord_[dim][j];
......@@ -523,7 +519,7 @@ namespace AMDiS {
int i0 = (side + 1) % 3;
int i1 = (side + 2) % 3;
if (Global::getGeo(WORLD) == 2){
if (dimOfWorld == 2){
normal[0] = coord_[i1][1] - coord_[i0][1];
normal[1] = coord_[i0][0] - coord_[i1][0];
} else { // dow == 3
......@@ -559,7 +555,8 @@ namespace AMDiS {
{
FUNCNAME("ElInfo::getElementNormal()");
TEST_EXIT_DBG(Global::getGeo(WORLD) == 3)(" element normal only well defined for DIM_OF_WORLD = DIM + 1 !!");
TEST_EXIT_DBG(dimOfWorld == 3)
(" element normal only well defined for DIM_OF_WORLD = DIM + 1 !!");
WorldVector<double> e0 = coord_[1] - coord_[0];
WorldVector<double> e1 = coord_[2] - coord_[0];
......
AMDiS/src/ElInfo3d.cc
View file @ b8cd3cef
......@@ -111,7 +111,7 @@ namespace AMDiS {
{
FUNCNAME("ElInfo3d::calcGrdLambda()");
TEST_EXIT_DBG(Global::getGeo(WORLD) == 3)
TEST_EXIT_DBG(dimOfWorld == 3)
("dim != dim_of_world ! use parametric elements!\n");
WorldVector<double> e1, e2, e3;
......@@ -183,7 +183,6 @@ namespace AMDiS {
TEST_EXIT_DBG(lambda)("lambda must not be NULL\n");
int dim = mesh_->getDim();
int dimOfWorld = Global::getGeo(WORLD);
TEST_EXIT_DBG(dim == dimOfWorld)("dim!=dimOfWorld not yet implemented\n");
......@@ -267,7 +266,6 @@ namespace AMDiS {
int neighbours = mesh_->getGeo(NEIGH);
int vertices = mesh_->getGeo(VERTEX);
int dow = Global::getGeo(WORLD);
if (fillFlag_.isSet(Mesh::FILL_NEIGH) || fillFlag_.isSet(Mesh::FILL_OPP_COORDS)) {
Tetrahedron *nb;
......@@ -295,7 +293,7 @@ namespace AMDiS {
if (nb->isNewCoordSet())
oppCoord_[ineigh] = *(nb->getNewCoord());
else
for (int j = 0; j < dow; j++)
for (int j = 0; j < dimOfWorld; j++)
oppCoord_[ineigh][j] = (oppCoord_[ineigh][j] + coord_[k][j]) / 2;
}
neighbour_[ineigh] = dynamic_cast<Tetrahedron*>(const_cast<Element*>(nb->getChild(1-ov)));
......@@ -313,14 +311,12 @@ namespace AMDiS {
double det = 0.0;
WorldVector<double> e0, e1, e2;
int dow = Global::getGeo(WORLD);
if (dow == 3) {
if (dimOfWorld == 3) {
int i0 = (face + 1) % 4;
int i1 = (face + 2) % 4;
int i2 = (face + 3) % 4;
for (int i = 0; i < dow; i++) {
for (int i = 0; i < dimOfWorld; i++) {
e0[i] = coord_[i1][i] - coord_[i0][i];
e1[i] = coord_[i2][i] - coord_[i0][i];
e2[i] = coord_[face][i] - coord_[i0][i];
......@@ -329,7 +325,7 @@ namespace AMDiS {
vectorProduct(e0, e1, normal);
if ((e2*normal) < 0.0)
for (int i = 0; i < dow; i++)
for (int i = 0; i < dimOfWorld; i++)
normal[i] = -normal[i];
det = norm(&normal);
......@@ -339,7 +335,7 @@ namespace AMDiS {
normal[1] /= det;
normal[2] /= det;
} else {
MSG("not implemented for DIM_OF_WORLD = %d in 3d\n", dow);
MSG("not implemented for DIM_OF_WORLD = %d in 3d\n", dimOfWorld);
}
return(det);
......@@ -367,7 +363,7 @@ namespace AMDiS {
Flag fill_opp_coords;
Mesh *mesh = elinfo_old->getMesh();
TEST_EXIT_DBG(el_old->getChild(0))("missing child?\n"); /* Kuni 22.08.96 */
TEST_EXIT_DBG(el_old->getChild(0))("missing child?\n");
element_ = const_cast<Element*>( el_old->getChild(ichild));
macroElement_ = elinfo_old->macroElement_;
......@@ -385,20 +381,18 @@ namespace AMDiS {
ochild = 1 - ichild;
}
int dow = Global::getGeo(WORLD);
if (fillFlag__local.isSet(Mesh::FILL_COORDS) ||
fillFlag_.isSet(Mesh::FILL_DET) ||
fillFlag_.isSet(Mesh::FILL_GRD_LAMBDA)) {
for (int i = 0; i < 3; i++) {
for (int j = 0; j < dow; j++) {
for (int j = 0; j < dimOfWorld; j++) {
coord_[i][j] = elinfo_old->coord_[cv[i]][j];
}
}
if (el_old->getNewCoord()) {
coord_[3] = *(el_old->getNewCoord());
} else {
for (int j = 0; j < dow; j++) {
for (int j = 0; j < dimOfWorld; j++) {
coord_[3][j] = (elinfo_old->coord_[0][j] + elinfo_old->coord_[1][j]) / 2;
}
}
......@@ -423,7 +417,7 @@ namespace AMDiS {
oppCoord_[0]= *(nb->getNewCoord());
} else {
int k = cvg[ochild][1];
for (int j = 0; j < dow; j++) {
for (int j = 0; j < dimOfWorld; j++) {
oppCoord_[0][j] = (elinfo_old->coord_[ochild][j] + elinfo_old->coord_[k][j]) / 2;
}
}
......@@ -432,7 +426,7 @@ namespace AMDiS {
oppVertex_[0] = 3;
} else {
if (fill_opp_coords.isAnySet()) {
for (int j = 0; j < dow; j++) {
for (int j = 0; j < dimOfWorld; j++) {
oppCoord_[0][j] = elinfo_old->coord_[ochild][j];
}
}
......@@ -465,7 +459,7 @@ namespace AMDiS {
if (nbk->getNewCoord()) {
oppCoord_[i] = *(nbk->getNewCoord());
} else {
for (int j = 0; j < dow; j++) {
for (int j = 0; j < dimOfWorld; j++) {
oppCoord_[i][j] = (elinfo_old->oppCoord_[cv[i]][j] + elinfo_old->coord_[ichild][j]) / 2;
}
}
......@@ -483,7 +477,7 @@ namespace AMDiS {
}
if (fill_opp_coords.isAnySet()) {
for (int j = 0; j < dow; j++) {
for (int j = 0; j < dimOfWorld; j++) {
oppCoord_[i][j] = elinfo_old->oppCoord_[cv[i]][j];
}
}
......@@ -511,7 +505,7 @@ namespace AMDiS {
if (nbk->getNewCoord()) {
oppCoord_[i] = *(nbk->getNewCoord());
} else {
for (int j = 0; j < dow; j++) {
for (int j = 0; j < dimOfWorld; j++) {
oppCoord_[i][j] = (elinfo_old->oppCoord_[cv[i]][j] + elinfo_old->coord_[ichild][j]) / 2;
}
}
......@@ -528,7 +522,7 @@ namespace AMDiS {
}
if (fill_opp_coords.isAnySet()) {
for (int j = 0; j < dow; j++) {
for (int j = 0; j < dimOfWorld; j++) {
oppCoord_[i][j] = elinfo_old->oppCoord_[cv[i]][j];
}
}
......@@ -552,7 +546,7 @@ namespace AMDiS {
oppVertex_[3] = elinfo_old->oppVertex_[ochild];
if (fill_opp_coords.isAnySet()) {
for (int j = 0; j < dow; j++) {
for (int j = 0; j < dimOfWorld; j++) {
oppCoord_[3][j] = elinfo_old->oppCoord_[ochild][j];
}
}
......@@ -593,11 +587,10 @@ namespace AMDiS {
projection_[3] = elinfo_old->getProjection(ochild);
for (int iedge = 0; iedge < 4; iedge++) {
projection_[geoFace + iedge] = elinfo_old->getProjection(mesh_->getGeo(FACE)+ce[iedge]);
projection_[geoFace + iedge] = elinfo_old->getProjection(geoFace + ce[iedge]);
}
for (int iedge = 4; iedge < 6; iedge++) {
int i = 5 - cv[iedge - 3]; /* old vertex opposite new edge */
projection_[geoFace + iedge] = elinfo_old->getProjection(i);
projection_[geoFace + iedge] = elinfo_old->getProjection(5 - cv[iedge - 3]);
}
}
}
......
AMDiS/src/Global.cc
View file @ b8cd3cef
......@@ -300,9 +300,9 @@ namespace AMDiS {
FUNCNAME("Global::getGeo()");
initTest();
TEST_EXIT((p >= MINPART) && (p <= MAXPART))
TEST_EXIT_DBG((p >= MINPART) && (p <= MAXPART))
("Calling for invalid geometry value %d\n",p);
TEST_EXIT((dim >= 0) && (dim < 4))
TEST_EXIT_DBG((dim >= 0) && (dim < 4))
("invalid dim: %d\n", dim);
if (p == WORLD)
......
AMDiS/src/Global.h
View file @ b8cd3cef
......@@ -484,7 +484,7 @@ namespace AMDiS {
/** \brief
* calls init if Global is not yet initialized.
*/
static void initTest() {
static inline void initTest() {
if (dimOfWorld == 0)
init();
};
......
AMDiS/src/Traverse.cc
View file @ b8cd3cef
......@@ -646,7 +646,8 @@ namespace AMDiS {
ElInfo* TraverseStack::traverseNeighbour3d(ElInfo* elinfo_old, int neighbour)
{
FUNCNAME("traverse_neighbour");
FUNCNAME("TraverseStackLLtraverseNeighbour3d()");
Element *el, *el2;
ElInfo *old_elinfo, *elinfo, *elinfo2;
const DegreeOfFreedom *dof;
......@@ -730,8 +731,7 @@ namespace AMDiS {
elinfo_stack[stack_used]->fillMacroInfo(traverse_mel);
info_stack[stack_used] = 0;
nb = i;
}
else { /* goto other child */
} else { /* goto other child */
stack2_used = stack_used + 1;
if (save_stack_used > stack2_used) {
stack2_used++; /* go down one level in OLD hierarchy */
......@@ -760,7 +760,7 @@ namespace AMDiS {
if (stack_used >= stack_size-1)
enlargeTraverseStack();
info_stack[stack_used] = 2-nb;
elinfo_stack[stack_used+1]->fillElInfo(1-nb, elinfo_stack[stack_used]);
elinfo_stack[stack_used+1]->fillElInfo(1 - nb, elinfo_stack[stack_used]);
stack_used++;
info_stack[stack_used] = 0;
elinfo = elinfo_stack[stack_used];
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment